]> git.donarmstrong.com Git - lilypond.git/commitdiff
Ensure \displayMusic renders scheme args in markup correctly.
authorNeil Puttock <n.puttock@gmail.com>
Sun, 26 Sep 2010 00:31:16 +0000 (01:31 +0100)
committerNeil Puttock <n.puttock@gmail.com>
Sun, 26 Sep 2010 00:31:16 +0000 (01:31 +0100)
* scm/music-functions.scm (markup-expression->make-markup):

  funnel scheme arguments through music->make-music to handle quoting for
  lists and pairs

scm/music-functions.scm

index 4a322b5b507fb745c493d38e94d9a29c1d9d63be..95587b8670bf84ab44daf03b2ccfee66875f9936 100644 (file)
@@ -134,7 +134,7 @@ For instance,
          ((and (not (string? arg)) (markup? arg)) ;; a markup
           (inner-markup->make-markup arg))
          (else                                  ;; scheme arg
-          arg)))
+          (music->make-music arg))))
   (define (inner-markup->make-markup mrkup)
     (if (string? mrkup)
        `(#:simple ,mrkup)