From c57813c088affc29347628978f163923e57a13a3 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Mon, 19 Aug 2002 00:19:35 +0000 Subject: [PATCH] Bugfix: call numbers->string only on first three elements of ly-version list. --- ChangeLog | 3 +++ input/test/header-ifelse.ly | 18 +++++++++++------- 2 files changed, 14 insertions(+), 7 deletions(-) diff --git a/ChangeLog b/ChangeLog index 9eb093d509..e2229cd24f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2002-08-19 Jan Nieuwenhuizen + * 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 } } -- 2.39.5