- ((measure-counter-event engraver event)
- (cond
- ((and (= START (ly:event-property event 'span-direction))
- go?)
- (set! stop? #t)
- (ly:input-warning
- (ly:event-property event 'origin)
- "count not ended before another begun"))
- ((= START (ly:event-property event 'span-direction))
- (set! go? #t)
- ;; initialize one less so first measure receives a count spanner
- (set! last-measure-seen
- (1- (ly:context-property context 'currentBarNumber))))
- ((= STOP (ly:event-property event 'span-direction))
- (set! stop? #t)
- (set! go? #f)))))
+ ((measure-counter-event engraver event)
+ (cond
+ ((and (= START (ly:event-property event 'span-direction))
+ go?)
+ (set! stop? #t)
+ (ly:input-warning
+ (ly:event-property event 'origin)
+ "count not ended before another begun"))
+ ((= START (ly:event-property event 'span-direction))
+ (set! go? #t)
+ ;; initialize one less so first measure receives a count spanner
+ (set! last-measure-seen
+ (1- (ly:context-property context 'currentBarNumber))))
+ ((= STOP (ly:event-property event 'span-direction))
+ (set! stop? #t)
+ (set! go? #f)))))