- (if (ly:stream-event? (cdr event-drul))
- (if (null? span)
- (ly:warning "You're trying to end a scheme text spanner but you haven't started one.")
- (begin (set! finished span)
- (ly:engraver-announce-end-grob trans finished current-event)
- (set! span '())
- (set! current-event '())
- (set-cdr! event-drul '()))))
- (if (ly:stream-event? (car event-drul))
- (begin (set! current-event (car event-drul))
- (set! span (ly:engraver-make-grob trans 'SchemeTextSpanner current-event))
- (set-axis! span Y)
- (set-car! event-drul '()))))
+ (if (ly:stream-event? event-stop)
+ (if (null? span)
+ (ly:warning "You're trying to end a scheme text spanner but you haven't started one.")
+ (begin (set! finished span)
+ (ly:engraver-announce-end-grob trans finished event-start)
+ (set! span '())
+ (set! event-stop '()))))
+ (if (ly:stream-event? event-start)
+ (begin (set! span (ly:engraver-make-grob trans 'SchemeTextSpanner event-start))
+ (set-axis! span Y)
+ (set! event-start '()))))