Imported Upstream version 2.19.45

[lilypond.git] / input / regression / scheme-book-scores.ly

diff --git a/input/regression/scheme-book-scores.ly b/input/regression/scheme-book-scores.ly
index fd1609f1b6a279a66430ac7e1599b5ab54b44139..ec75de35739ea641f22c5584a0df517681659a4a 100644 (file)
--- a/input/regression/scheme-book-scores.ly
+++ b/input/regression/scheme-book-scores.ly
@@ -1,4 +1,4 @@
-\version "2.17.11"
+\version "2.19.22"
 
 \header {
 
@@ -21,18 +21,18 @@ informations from top- and booklevel stack correctly."
                           'elements (list (make-music 'NoteEvent
                                             'duration (ly:make-duration 2 0 1/1)
                                             'pitch scmpitch))))
-                 (score (scorify-music music parser))
+                 (score (scorify-music music))
                  (layout (ly:output-def-clone $defaultlayout))
                  (desc (markup #:large #:line ((ly:format "Score with a ~a"
-                                (note-name->lily-string scmpitch parser))))))
+                                (note-name->lily-string scmpitch))))))
             (ly:score-add-output-def! score layout)
-            (add-text parser desc)
-            (add-score parser score))
+            (add-text desc)
+            (add-score score))
             (set! pitch (modulo (1+ pitch) 7)))))
 
 oneNoteScore =
-#(define-void-function (parser location) ()
-   (add-one-note-score parser))
+#(define-void-function () ()
+   (add-one-note-score (*parser*)))
 
 %%%