Merge branch 'lilypond/translation' of ssh://jomand@git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / scm / parser-ly-from-scheme.scm

diff --git a/scm/parser-ly-from-scheme.scm b/scm/parser-ly-from-scheme.scm
index 9d2b3b5d47e000468ec82308eb3c598a6221316f..178f94e4ef2f02f952270312ba6760d1513f727d 100644 (file)
--- a/scm/parser-ly-from-scheme.scm
+++ b/scm/parser-ly-from-scheme.scm
@@ -1,8 +1,8 @@
-;;;; ly-from-scheme.scm -- parsing LilyPond music expressions from scheme
+;;;; parser-ly-from-scheme.scm -- parsing LilyPond music expressions from scheme
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
-;;;; (c) 2004--2006  Nicolas Sceaux  <nicolas.sceaux@free.fr>
+;;;; (c) 2004--2009  Nicolas Sceaux  <nicolas.sceaux@free.fr>
 ;;;;           Jan Nieuwenhuizen <janneke@gnu.org>
 
 (define gen-lily-sym
@@ -78,7 +78,7 @@ character."
                              ;; other caracters
                              (else
                               (display c out))))))))
-      `(let ((parser-clone (ly:clone-parser parser)))
+      `(let ((parser-clone (ly:parser-clone parser)))
          ,@(map (lambda (binding)
                   `(ly:parser-define! parser-clone ',(car binding) ,(cdr binding)))
                 (reverse bindings))