instrument name fixup.

[lilypond.git] / input / test / header-ifelse.ly

diff --git a/input/test/header-ifelse.ly b/input/test/header-ifelse.ly
index c38dc8b22cacd64f93d74b0a1a3f67569948fef4..9d717be65102aa81ed51db08bda73ae2834227d6 100644 (file)
--- a/input/test/header-ifelse.ly
+++ b/input/test/header-ifelse.ly
@@ -1,23 +1,21 @@
-% #(define pieceTagLine "Copyright 2002 (C) Mutopia")
-\version "1.7.20"
-% FIXME: since tagline isn't used in creating the webpage, this example
-% doesn't output anything unusual.
+\version "2.7.39"
 
-#(define (my-ly-version)
-  (let ((version (ly:version)))
-    (list (car version) (cadr version) (caddr version))))
 
 #(if (not (defined? 'pieceTagLine))
-    (define pieceTagLine (string-append "Jeremie " (numbers->string (my-ly-version)) " was here")))
+  (define pieceTagLine (string-append "Title has version " (lilypond-version))))
 
-pieceTagLine = #pieceTagLine
 \header{
-tagline = \pieceTagLine
-texidoc = "@cindex Header If Else
-High level functionality can be accomplished with GUILE. Semantics aren't nice though." 
-}
+    title = \pieceTagLine
+    texidoc = "
+
+High level functionality (eg. conditional defines), can be
+accomplished with GUILE.
+
+This example puts the current version in the title via Scheme.
 
-\score{ \notes{ c4 }
-\paper {raggedright=##t}
+" 
 }
-%% new-chords-done %%
+
+\layout {ragged-right=##t}
+{ c'4 }
+