From: Han-Wen Nienhuys Date: Wed, 4 Jan 2006 11:21:27 +0000 (+0000) Subject: (define-scheme-options): use quasi-quote for option X-Git-Tag: release/2.7.27~17 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e384023a495edcfbf34b159393c4829912242a36;p=lilypond.git (define-scheme-options): use quasi-quote for option init. Fixes verbose printing of .scm files. --- diff --git a/ChangeLog b/ChangeLog index 2baae7fe57..f59770aa23 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2006-01-04 Han-Wen Nienhuys + * scm/lily.scm (define-scheme-options): use quasi-quote for option + init. Fixes verbose printing of .scm files. + * stepmake/aclocal.m4: add spaces before - options. 2006-01-03 Jan Nieuwenhuizen diff --git a/scm/lily.scm b/scm/lily.scm index d62c47369b..27e0fff5f7 100644 --- a/scm/lily.scm +++ b/scm/lily.scm @@ -10,7 +10,7 @@ (for-each (lambda (x) (ly:add-option (car x) (cadr x) (caddr x))) - '((point-and-click #t "use point & click") + `((point-and-click #t "use point & click") (paper-size "a4" "the default paper size") (midi-debug #f "generate human readable MIDI") (internal-type-checking #f "check every property assignment for types") @@ -31,7 +31,7 @@ similar to chord syntax") (gui #f "running from gui; redirect stderr to log file") (delete-intermediate-files #f "delete unusable PostScript files") - (verbose (ly:command-line-verbose?) "value for the --verbose flag") + (verbose ,(ly:command-line-verbose?) "value for the --verbose flag") (ttf-verbosity 0 "how much verbosity for TTF font embedding?") (debug-gc #f