X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fincluded%2Fdisplay-predefined-string-tunings.ly;h=fd3df5378a9e25967e815dfe848e6b56808e26f0;hb=fc40563cfed21eb5508b60b3892c57f9d2560a63;hp=d917dd3d6406c11b519c49ded985907ec2a39a5a;hpb=3170fd65067a96ea861c173c81fce5f0e127762e;p=lilypond.git

diff --git a/Documentation/included/display-predefined-string-tunings.ly b/Documentation/included/display-predefined-string-tunings.ly
index d917dd3d64..fd3df5378a 100644
--- a/Documentation/included/display-predefined-string-tunings.ly
+++ b/Documentation/included/display-predefined-string-tunings.ly
@@ -1,4 +1,4 @@
-\version "2.14.0"
+\version "2.19.22"
 
 #(define (filter-instrument instrument-name tuning-alist)
    (filter (lambda (entry)
@@ -16,12 +16,12 @@
 				   'text (symbol->string tuning-symbol))
 		       (map (lambda (pitch)
 			      (make-music 'NoteEvent
-					  'duration (ly:make-duration 0 0 1 1)
+					  'duration (ly:make-duration 0 0 1/1)
 					  'pitch pitch))
 			    pitches)))))
 
 displayInstrumentDefaultTunings =
-#(define-music-function (parser location instrument) (string?)
+#(define-music-function (instrument) (string?)
    (let* ((filtered-instruments (filter-instrument instrument defaultStringTunings))
           (display-elements (map chord-display filtered-instruments)))
      (make-music 'SequentialMusic 'elements display-elements)))
@@ -31,7 +31,7 @@ displayInstrumentDefaultTunings =
   {
     \new Staff {
       \textLengthOn
-      \override Score.RehearsalMark #'self-alignment-X = #LEFT
+      \override Score.RehearsalMark.self-alignment-X = #LEFT
 
       \mark \markup {\left-align "Guitar tunings"}
       \clef "treble_8"