* lily/staff-symbol-referencer.cc (get_position): emergency

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

diff --git a/input/test/header-ifelse.ly b/input/test/header-ifelse.ly
index 4c678de2cfc01e61f877f41be0037865dbf852d9..3f0a95c59512b2c2b8394914f332cc89f840322c 100644 (file)
--- a/input/test/header-ifelse.ly
+++ b/input/test/header-ifelse.ly
@@ -1,16 +1,21 @@
-% #(define pieceTagLine "Copyright 2002 (C) Mutopia")
+\version "2.3.8"
 
-#(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 = "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}
+{ c'4 }
+