Loglevels: Fix version number in regtest

[lilypond.git] / scm / ly-syntax-constructors.scm

diff --git a/scm/ly-syntax-constructors.scm b/scm/ly-syntax-constructors.scm
index 171cee12407e8bbb2ebf1f0c87b25d3ed3e0ce3f..5633ad84a140a389d507c5a670a51ae76f6438d0 100644 (file)
--- a/scm/ly-syntax-constructors.scm
+++ b/scm/ly-syntax-constructors.scm
@@ -243,15 +243,14 @@ into a @code{MultiMeasureTextEvent}."
   (let* ((set (and (integer? label)
                   (context-spec-music (make-property-set 'rehearsalMark label)
                                      'Score)))
-        (ev (make-music 'MarkEvent))
-        (ch (make-event-chord (list ev))))
+        (ev (make-music 'MarkEvent
+                        'origin location)))
 
-    (set! (ly:music-property ev 'origin) location)
     (if set
-       (make-sequential-music (list set ch))
+       (make-sequential-music (list set ev))
        (begin
          (set! (ly:music-property ev 'label) label)
-         ch))))
+         ev))))
 
 (define-ly-syntax (partial parser location dur)
   "Make a partial measure."