* lily/context-def.cc (filter_performers): don't go to cdrloc if

[lilypond.git] / scm / new-markup.scm

diff --git a/scm/new-markup.scm b/scm/new-markup.scm
index 2d3632cdf86e731d82c751000d8bc8f937922245..7dcf129684903f9b270ce89cf1a09a50d26c0bf0 100644 (file)
--- a/scm/new-markup.scm
+++ b/scm/new-markup.scm
@@ -175,8 +175,11 @@ e.g. (make-COMMAND-markup arg1 arg2 ...), and the rest expression."
          ;; expr === ((#:COMMAND arg1 ...) ...)
          (receive (m r) (compile-markup-expression (car expr))
                   (values m (cdr expr))))
+        ((and (pair? expr)
+              (string? (car expr))) ;; expr === ("string" ...)
+         (values `(make-simple-markup ,(car expr)) (cdr expr)))
         (else
-         ;; expr === (symbol ...) or ("string" ...) or ((funcall ...) ...)
+         ;; expr === (symbol ...) or ((funcall ...) ...)
          (values (car expr)
                  (cdr expr)))))