X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-music.scm;h=93b7b362159280679725ec85ce09aa0a8d002057;hb=93078545cd6183eb6394dcf7e9a2a55e3e72d5dc;hp=b83018705f07e157c4b33b3f0c0bb56373db5cb1;hpb=b7a0cffbf9d1069860368f289a5b50e9d1d90ba8;p=lilypond.git

diff --git a/scm/document-music.scm b/scm/document-music.scm
index b83018705f..93b7b36215 100644
--- a/scm/document-music.scm
+++ b/scm/document-music.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 1998--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 1998--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
@@ -28,7 +28,7 @@
 	   (texi (description-list->texi descs #f)))
       texi)))
 
-(define music-types->names (make-vector 61 '()))
+(define music-types->names (make-hash-table 61))
 (filter-map (lambda (entry)
 	      (let* ((class (ly:camel-case->lisp-identifier (car entry)))
 		     (classes (ly:make-event-class class)))