From 28c06a420d3028fe175716a25400c6d0218c15cd Mon Sep 17 00:00:00 2001 From: hanwen Date: Sun, 6 Nov 2005 01:11:37 +0000 Subject: [PATCH] (print-music-as-book): quote $defaultparser. --- ChangeLog | 4 ++++ scm/lily-library.scm | 12 ++++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index 43c0286f53..878fce0e36 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2005-11-06 Han-Wen Nienhuys + + * scm/lily-library.scm (print-music-as-book): quote $defaultparser. + 2005-11-04 Han-Wen Nienhuys * lily/include/score.hh (class Score): remove texts_ member. diff --git a/scm/lily-library.scm b/scm/lily-library.scm index bac5d0467f..5f61977944 100644 --- a/scm/lily-library.scm +++ b/scm/lily-library.scm @@ -44,19 +44,19 @@ ;; parser stuff. (define-public (print-music-as-book parser music) (let* ((head (ly:parser-lookup parser '$defaultheader)) - (book (ly:make-book (ly:parser-lookup parser $defaultpaper) - head score))) - (ly:parser-print-book parser book))) + (book (ly:make-book (ly:parser-lookup parser '$defaultpaper) + head (scorify-music music parser)))) + (print-book-with-defaults parser book))) (define-public (print-score-as-book parser score) (let* ((head (ly:parser-lookup parser '$defaultheader)) - (book (ly:make-book (ly:parser-lookup parser $defaultpaper) + (book (ly:make-book (ly:parser-lookup parser '$defaultpaper) head score))) - (ly:parser-print-book parser book))) + (print-book-with-defaults parser book))) (define-public (print-score parser score) (let* ((head (ly:parser-lookup parser '$defaultheader)) - (book (ly:make-book (ly:parser-lookup parser $defaultpaper) + (book (ly:make-book (ly:parser-lookup parser '$defaultpaper) head score))) (ly:parser-print-score parser book))) -- 2.39.5