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

[lilypond.git] / scm / lily.scm

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