+(define-public (print-score-as-book parser score)
+ (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 parser score)
+ (let* ((head (ly:parser-lookup parser '$globalheader))
+ (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)
+ (let*
+ ((oldval (ly:parser-lookup parser 'toplevel-scores)))
+ (ly:parser-define parser 'toplevel-scores (cons score oldval))
+ ))