From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 6 Nov 2005 01:11:37 +0000 (+0000)
Subject: (print-music-as-book): quote $defaultparser.
X-Git-Tag: release/2.7.17~48
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f4e7dece756595c8ec66525aba9e4cc297400fe6;p=lilypond.git

(print-music-as-book): quote $defaultparser.
---

diff --git a/ChangeLog b/ChangeLog
index 43c0286f53..878fce0e36 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-11-06  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* scm/lily-library.scm (print-music-as-book): quote $defaultparser.
+
 2005-11-04  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* 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)))