X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-music.scm;h=7d7e2a9942b974169b722eb2ec39b2e33200c390;hb=cd9b21c7688389e6be24eec51e54be327ae5bdd1;hp=8c4a9421bd30ad5e3cd1f290fe4c79d78bf8f651;hpb=a6bd229f7fe1dc4a03478e14ccc0c0c66b225061;p=lilypond.git

diff --git a/scm/document-music.scm b/scm/document-music.scm
index 8c4a9421bd..7d7e2a9942 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--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 1998--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
@@ -16,6 +16,8 @@
 ;;;; You should have received a copy of the GNU General Public License
 ;;;; along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
+(define doc-context (ly:make-global-context $defaultlayout))
+
 (define (music-props-doc)
   (make <texi-node>
     #:name "Music properties"
@@ -28,10 +30,10 @@
 	   (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)))
+		     (classes (ly:make-event-class doc-context class)))
 		(if classes
 		    (map
 		     (lambda (cl)
@@ -88,7 +90,7 @@
   (let* ((namesym  (car obj))
 	 (props (cdr obj))
 	 (class (ly:camel-case->lisp-identifier namesym))
-	 (classes (ly:make-event-class class))
+	 (classes (ly:make-event-class doc-context class))
 	 (accept-list (if classes
 			  (human-listify
 			   (map ref-ify