Merge branch 'lilypond/translation' of ssh://git.sv.gnu.org/srv/git/lilypond

[lilypond.git] / scm / auto-beam.scm

diff --git a/scm/auto-beam.scm b/scm/auto-beam.scm
index df31f369900f0233f09f451b8ce45b0b10ae49c4..c5ec73266dc0749dc7ecdbee32befc36067e0c96 100644 (file)
--- a/scm/auto-beam.scm
+++ b/scm/auto-beam.scm
@@ -34,7 +34,7 @@
 ;;  2. exceptions for specific time signature, for specific duration type
 
 
-(define-public (default-auto-beam-check context dir test-beam)
+(define-public (default-auto-beam-check context dir measure-pos test-beam)
   (define (get name default)
     (let ((value (ly:context-property context name)))
       (if (not (null? value)) value default)))
@@ -60,7 +60,6 @@
                  (measure-length (get 'measureLength (ly:make-moment 1 1)))
                  (time-signature-fraction
                    (get 'timeSignatureFraction '(4 . 4)))
-                 (measure-pos (get 'measurePosition ZERO-MOMENT))
                  (settings (get 'beamSettings '()))
                  (function (if (= dir START) 'begin 'end))
                  (type (cons (ly:moment-main-numerator test-beam)