From: Jan Nieuwenhuizen 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 + * 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 } }