Web-ja: update introduction

[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 5e24ef5f3958984a1d33b78916f64ecece0a6cfe..ec75de35739ea641f22c5584a0df517681659a4a 100644 (file)
--- a/input/regression/scheme-book-scores.ly
+++ b/input/regression/scheme-book-scores.ly
@@ -1,4 +1,4 @@
-\version "2.16.0"
+\version "2.19.22"
 
 \header {
 
@@ -19,20 +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-void-function (parser location) ()
-   (add-one-note-score parser))
+#(define-void-function () ()
+   (add-one-note-score (*parser*)))
 
 %%%