X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=scm%2Fdocument-music.scm;h=c5487eefd0691fda075b43b28cb94545c2aa3402;hb=84f0776f17e762c7fd70545b1b034793a4e080fb;hp=92c2b5248705177f9d09072a182dae97a465b4cf;hpb=cf137655b7aee9988ef536d6fa5e38d279ee73cf;p=lilypond.git

diff --git a/scm/document-music.scm b/scm/document-music.scm
index 92c2b52487..c5487eefd0 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--2012 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 1998--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
@@ -16,8 +16,6 @@
 ;;;; 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"
@@ -31,19 +29,18 @@
       texi)))
 
 (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 doc-context class)))
-                (if classes
-                    (map
-                     (lambda (cl)
-                       (hashq-set! music-types->names cl
-                                   (cons (car entry)
-                                         (hashq-ref music-types->names cl '()))))
-                     classes)
-                    #f)))
 
-            music-descriptions)
+(for-each (lambda (entry)
+            (let* ((class (ly:camel-case->lisp-identifier (car entry)))
+                   (classes (ly:make-event-class class)))
+              (if classes
+                  (for-each
+                   (lambda (cl)
+                     (hashq-set! music-types->names cl
+                                 (cons (car entry)
+                                       (hashq-ref music-types->names cl '()))))
+                   classes))))
+          music-descriptions)
 
 (define (strip-description x)
   (cons (symbol->string (car x))
@@ -90,7 +87,7 @@
   (let* ((namesym  (car obj))
          (props (cdr obj))
          (class (ly:camel-case->lisp-identifier namesym))
-         (classes (ly:make-event-class doc-context class))
+         (classes (ly:make-event-class class))
          (accept-list (if classes
                           (human-listify
                            (map ref-ify