* lily/my-lily-parser.cc (parse_string): init parser variable when

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index ecd29e3876fd13186d43fc8ba993cdb2d9ffb356..57a5f337c7409e7abaa6144a731f561e3bf0633f 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -94,21 +94,22 @@
 
 ;; parser stuff.
 (define-public (print-music-as-book parser music)
-  (let* (
-        (head  (ly:parser-lookup parser '$globalheader))
-        (book (ly:score-bookify score head)))
+  (let* ((head  (ly:parser-lookup parser '$globalheader))
+        (book (ly:make-book (ly:parser-lookup parser $defaultbookpaper)
+                            head score)))
     (ly:parser-print-book parser book)))
 
 (define-public (print-score-as-book parser score)
   (let*
       ((head  (ly:parser-lookup parser '$globalheader))
-       (book (ly:score-bookify score head)))
-    
+       (book (ly:make-book (ly:parser-lookup parser $defaultbookpaper)
+                          head score)))
     (ly:parser-print-book parser book)))
 
 (define-public (print-score parser score)
   (let* ((head  (ly:parser-lookup parser '$globalheader))
-       (book (ly:score-bookify score head)))
+        (book (ly:make-book (ly:parser-lookup parser $defaultbookpaper)
+                            head score)))
     (ly:parser-print-score parser book)))
                
 (define-public (collect-scores-for-book  parser score)