X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=input%2Fregression%2Fscheme-book-scores.ly;h=ec75de35739ea641f22c5584a0df517681659a4a;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=cd500bea6c169c9beb9a3ad6d8aa54d0159a29d8;hpb=cb01be4028886109ecc4772234452965ce7dfb66;p=lilypond.git

diff --git a/input/regression/scheme-book-scores.ly b/input/regression/scheme-book-scores.ly
index cd500bea6c..ec75de3573 100644
--- a/input/regression/scheme-book-scores.ly
+++ b/input/regression/scheme-book-scores.ly
@@ -1,4 +1,4 @@
-\version "2.13.4"
+\version "2.19.22"
 
 \header {
 
@@ -19,21 +19,20 @@ informations from top- and booklevel stack correctly."
           (let* ((scmpitch (ly:make-pitch 0 pitch 0))
                  (music (make-music 'EventChord
                           'elements (list (make-music 'NoteEvent
-                                            'duration (ly:make-duration 2 0 1 1)
+                                            '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-music-function (parser location) ()
-   (add-one-note-score parser)
-   (make-music 'Music 'void #t))
+#(define-void-function () ()
+   (add-one-note-score (*parser*)))
 
 %%%