* lily/paper-score-scheme.cc (LY_DEFINE): new file.

[lilypond.git] / scm / define-markup-commands.scm

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 33cb29a993e169f22cf0cba1784e05ba29226e37..8c0d58cb62cdc1d3a3d232085505933daf93f087 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -103,14 +103,14 @@ one staff-space."
 
 (def-markup-command (score layout props score) (ly:score?)
   "Inline an image of music."
-  (let* ((systems (ly:score-embedded-format score layout)))
+  (let* ((output (ly:score-embedded-format score layout)))
 
-    (if (= (vector-length systems) 0)
+    (if (ly:music-output? output)
+       (ly:paper-system-stencil
+        (vector-ref (ly:paper-score-paper-systems output) 0))
        (begin
          (ly:warning (_"no systems found in \\score markup, does it have a \\layout block?"))
-         empty-markup)
-       (let* ((stencil (ly:paper-system-stencil (vector-ref systems 0)))) 
-         (ly:stencil-aligned-to stencil Y CENTER)))))
+         empty-stencil))))
 
 (def-markup-command (simple layout props str) (string?)
   "A simple text string; @code{\\markup @{ foo @}} is equivalent with