*** empty log message ***

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

diff --git a/input/test/header-ifelse.ly b/input/test/header-ifelse.ly
index c38dc8b22cacd64f93d74b0a1a3f67569948fef4..afe77221de9669f8b62ff59578a72b47fccbca1e 100644 (file)
--- a/input/test/header-ifelse.ly
+++ b/input/test/header-ifelse.ly
@@ -1,23 +1,26 @@
-% #(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.1.30"
+
 
 #(define (my-ly-version)
-  (let ((version (ly:version)))
-    (list (car version) (cadr version) (caddr version))))
+    (list-head (ly:version) 3))
 
 #(if (not (defined? 'pieceTagLine))
     (define pieceTagLine (string-append "Jeremie " (numbers->string (my-ly-version)) " was here")))
 
-pieceTagLine = #pieceTagLine
 \header{
 tagline = \pieceTagLine
-texidoc = "@cindex Header If Else
-High level functionality can be accomplished with GUILE. Semantics aren't nice though." 
+texidoc = "
+
+High level functionality (eg. conditional defines),
+can be accomplished with GUILE.
+
+This example puts the current version in the tagline via Scheme,
+however, the tagline is not printed to the collated webpage snippets.
+
+" 
 }
 
-\score{ \notes{ c4 }
+\score{ \notes{ c'4 }
 \paper {raggedright=##t}
 }
-%% new-chords-done %%
+