From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 19 Aug 2002 00:19:35 +0000 (+0000)
Subject: Bugfix: call numbers->string only
X-Git-Tag: release/1.6.0~13
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c57813c088affc29347628978f163923e57a13a3;p=lilypond.git

Bugfix: call numbers->string only
on first three elements of ly-version list.
---

diff --git a/ChangeLog b/ChangeLog
index 9eb093d509..e2229cd24f 100644
--- 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 831e9d829a..4c678de2cf 100644
--- 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 } }