- (if (null? exception-grouping)
- (beat-end? pos beat-endings) ;; no exception, so check beat ending
- (member pos exception-moments))))))) ;; check exception rule
+ (if (use-special-3-4-rules?
+ time-signature-fraction
+ base-moment
+ exceptions)
+ ;; special rule for default 3/4 beaming
+ (if (and (equal? type '(1 . 8))
+ (or beam-whole-measure
+ (and beam-half-measure
+ (not (equal? pos (ly:make-moment 3 8))))))
+ #f
+ (beat-end? pos beat-endings))
+ ;; rules for all other cases -- check for applicable exception
+ (if (null? exception-grouping)
+ (beat-end? pos beat-endings) ;; no exception, so check beat ending
+ (member pos exception-moments)))))))) ;; check exception rule