(define-scheme-options): use quasi-quote for option

init. Fixes verbose printing of .scm files.

diff --git a/ChangeLog b/ChangeLog
index 2baae7fe572fdbe3f861f1edd9272c2431c5bca1..f59770aa237ac2b56b6a12bbc2d98b75ad84a6db 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-01-04  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * 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  <janneke@gnu.org>

diff --git a/scm/lily.scm b/scm/lily.scm
index d62c47369b31995b645888078ac52be343935496..27e0fff5f768f9a1e532d9f0115f4706e64653bb 100644 (file)
--- 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