Much better now, though:

https://codereview.appspot.com/321930043/diff/100001/scm/scheme-engravers.scm
File scm/scheme-engravers.scm (right):

https://codereview.appspot.com/321930043/diff/100001/scm/scheme-engravers.scm#newcode151
scm/scheme-engravers.scm:151: (define (rest-eqv rest-len-prop)
The current patch-set fails with:
"Variable used before given a value: rest-eqv"
because subsequent usage of 'define ...' is equivalent to let not let*

Moving (define (rest-eqv rest-len-prop) before the engraver-definiton
starts will work or something at the lines of

...
  (let* ((rest-eqv
           (lambda (rest-len-prop)
             (define (rest-len rest) (ly:grob-property rest
rest-len-prop))
             (lambda (rest-a rest-b)
               (eqv? (rest-len rest-a) (rest-len rest-b)))))
         (mmrest-same-length (rest-eqv 'measure-count))
         (rest-same-length (rest-eqv 'duration-log)))

  (define (merge-mmrests rests)
...

https://codereview.appspot.com/321930043/

_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-devel

Reply via email to