Issue 4127: allow mid-measure \time

[lilypond.git] / scm / define-music-callbacks.scm

diff --git a/scm/define-music-callbacks.scm b/scm/define-music-callbacks.scm
index a6441d1e21798e58296d17fcbff0d376a0bb0ac9..24281a883846ac64d0e7aa6293b2657ce3ff1499 100644 (file)
--- a/scm/define-music-callbacks.scm
+++ b/scm/define-music-callbacks.scm
@@ -102,19 +102,7 @@ to be used by the sequential-iterator"
                            structure))
                       (beaming-exception
                        (beam-exceptions fraction time-signature-settings))
-                      (new-measure-length (ly:make-moment num den))
-                      (pos (ly:context-property context 'measurePosition)))
-                 ;;\time is OK at a negative measurePosition (after \partial),
-                 ;;but at a positive position it's probably a mistake, so warn
-                 ;;(like a barcheck) and reset it to 0 to prevent errors.
-                 (if (> (ly:moment-main pos) 0)
-                     (begin
-                       (if (not (ly:context-property context 'ignoreBarChecks #f))
-                           (ly:music-warning music
-                                             (_ "\\time in mid-measure at ~A")
-                                             (ly:moment-main pos)))
-                       (ly:context-set-property!
-                        context 'measurePosition (ly:make-moment 0))))
+                      (new-measure-length (ly:make-moment num den)))
                  (ly:context-set-property!
                   context 'timeSignatureFraction fraction)
                  (ly:context-set-property!