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

diff --git a/ChangeLog b/ChangeLog
index 43c0286f537dd6966a5921af9ecb0ae1c752c47c..878fce0e363f2d6976222b525deab843343db565 100644 (file)
--- 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 bac5d0467f16bb185318b41a64f5aeff0379857f..5f619779440e32e4565683aad1588d20b5741f8f 100644 (file)
--- 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)))