X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fparser-ly-from-scheme.scm;h=f124a82f359776402d2a8afe793639b6555465c8;hb=85c0ce205e1a9b5fad4ac79d02292ac1231db532;hp=9d2b3b5d47e000468ec82308eb3c598a6221316f;hpb=35fafba86276f47f3742fd10f0107eea1cc926ea;p=lilypond.git diff --git a/scm/parser-ly-from-scheme.scm b/scm/parser-ly-from-scheme.scm index 9d2b3b5d47..f124a82f35 100644 --- a/scm/parser-ly-from-scheme.scm +++ b/scm/parser-ly-from-scheme.scm @@ -1,9 +1,20 @@ -;;;; ly-from-scheme.scm -- parsing LilyPond music expressions from scheme +;;;; This file is part of LilyPond, the GNU music typesetter. ;;;; -;;;; source file of the GNU LilyPond music typesetter -;;;; -;;;; (c) 2004--2006 Nicolas Sceaux +;;;; Copyright (C) 2004--2011 Nicolas Sceaux ;;;; 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 gen-lily-sym ;; Generate a lilyvartmpXX symbol, that may be (hopefully) unique. @@ -78,7 +89,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))