Take parser from (currentmodule) in 2-pass page-layout functions

[lilypond.git] / scm / lily-library.scm

diff --git a/scm/lily-library.scm b/scm/lily-library.scm
index 53b5e58f240bc4b39df8fcd9b37c43c90565c155..e3a59a64391a6a24c46eec53e1c09ab6c2ffeebd 100644 (file)
--- a/scm/lily-library.scm
+++ b/scm/lily-library.scm
@@ -82,9 +82,11 @@
   (let*
       ((paper (ly:parser-lookup parser '$defaultpaper))
        (layout (ly:parser-lookup parser '$defaultlayout))
+
        (count (ly:parser-lookup parser 'output-count))
        (base (ly:parser-output-name parser)))
 
+    ;; must be careful: output-count is under user control.
     (if (not (integer? count))
        (set! count 0))