(equal? laziness #t)
(<= bar-number (+ (cadr alteration-def) laziness))))
-(define (accidental-voided? alteration-def)
- "Checks an alteration entry for being voided.
+(define (accidental-invalid? alteration-def)
+ "Checks an alteration entry for being invalid.
-Non-key alterations are voided when tying into the next bar or when
-there is a clef change, since neither repetition nor cancellation can
-be omitted when the same note occurs again.
+Non-key alterations are invalidated when tying into the next bar or
+when there is a clef change, since neither repetition nor cancellation
+can be omitted when the same note occurs again.
-Returns @code{#f} or the reason for the voiding, a symbol."
+Returns @code{#f} or the reason for the invalidation, a symbol."
(let* ((def (if (pair? alteration-def)
(car alteration-def)
alteration-def)))
(from-key-sig
(set! previous-alteration from-key-sig)))
- (if (accidental-voided? previous-alteration)
+ (if (accidental-invalid? previous-alteration)
(set! need-accidental #t)
(let* ((prev-alt (extract-alteration previous-alteration))
(lambda (entry)
(let* ((localalt (key-entry-alteration entry))
(localoct (key-entry-octave entry)))
- (if (or (accidental-voided? localalt)
+ (if (or (accidental-invalid? localalt)
(not localoct)
(= localalt
(key-entry-alteration