Bugfix: call numbers->string only

on first three elements of ly-version list.

diff --git a/ChangeLog b/ChangeLog
index 9eb093d509fdd2c5a4e3d4dd1fac9db98ac1a848..e2229cd24fd94a07a5400255477a3619f9fabd15 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2002-08-19  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * input/test/header-ifelse.ly: Bugfix: call numbers->string only
+       on first three elements of ly-version list.
+
        * input/test/trills.ly: Comment out \comma.
 
        * lily/tab-note-heads-engraver.cc: 

diff --git a/input/test/header-ifelse.ly b/input/test/header-ifelse.ly
index 831e9d829a4c5e33bdf289576f77a99e6de544df..4c678de2cfc01e61f877f41be0037865dbf852d9 100644 (file)
--- a/input/test/header-ifelse.ly
+++ b/input/test/header-ifelse.ly
@@ -1,12 +1,16 @@
 % #(define pieceTagLine "Copyright 2002 (C) Mutopia")
 
-#(if (not (defined? 'pieceTagLine))
-    (define pieceTagLine (string-append "Jeremie " (numbers->string (ly-version)) " was here")))
+#(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")))
 
 pieceTagLine = #pieceTagLine
-\header {
-        tagline = \pieceTagLine
-        texidoc = "High level functionality can be accomplished with GUILE. Semantics aren't nice though." 
-        }
-\score { \notes { c4 }}
+\header{
+tagline = \pieceTagLine
+texidoc = "High level functionality can be accomplished with GUILE. Semantics aren't nice though." 
+}
+
+\score{ \notes{ c4 } }