X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-translation.scm;h=3e8c308d5b5a8a9a9657963c1d69e0f88192381c;hb=3c947ecc5d87b61a65a0bc70ff78c9e81c925d17;hp=a9bf143c3d2d319c1836fe3a81fb9173ae41f880;hpb=dde989437f822ff637a191cfd76b1a9e943dbac5;p=lilypond.git diff --git a/scm/document-translation.scm b/scm/document-translation.scm index a9bf143c3d..3e8c308d5b 100644 --- a/scm/document-translation.scm +++ b/scm/document-translation.scm @@ -1,9 +1,20 @@ -;;;; document-translation.scm -- Functions for engraver documentation +;;;; This file is part of LilyPond, the GNU music typesetter. ;;;; -;;;; source file of the GNU LilyPond music typesetter -;;;; -;;;; (c) 2000--2009 Han-Wen Nienhuys +;;;; Copyright (C) 2000--2011 Han-Wen Nienhuys ;;;; Jan Nieuwenhuizen +;;;; +;;;; LilyPond is free software: you can redistribute it and/or modify +;;;; it under the terms of the GNU General Public License as published by +;;;; the Free Software Foundation, either version 3 of the License, or +;;;; (at your option) any later version. +;;;; +;;;; LilyPond is distributed in the hope that it will be useful, +;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;;; GNU General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU General Public License +;;;; along with LilyPond. If not, see . (define (engraver-makes-grob? name-symbol grav) (memq name-symbol (assoc 'grobs-created (ly:translator-description grav)))) @@ -102,7 +113,7 @@ #:text (engraver-doc-string grav #t))) ;; Second level, part of Context description -(define name->engraver-table (make-vector 61 '())) +(define name->engraver-table (make-hash-table 61)) (map (lambda (x) (hash-set! name->engraver-table (ly:translator-name x) x))