Re: Adds ly:define-event-class (issue1867050)

[n . puttock]

My comments in define-event-classes.scm don't work, so here goes:
+(define-public (define-event-class leaf heritage)
+ (cond
+ ((not (eq? leaf (car heritage)))
+ (ly:warning "All classes must be the last in their matrilineal
line."))

(ly:warning (_ "...") for translations

+ ((not (equal? (cdr heritage)
+ (list-head (hashq-ref ancestor-lookup (cadr heritage) '())
+ (length (cdr heritage)))))
+ (ly:warning "All classes must have a well-defined pedigree in the
existing class heirarchy."))

(_ "...")

hierarchy

+ (else (hashq-set! ancestor-lookup
+ leaf
+ (cons leaf
+ (hashq-ref ancestor-lookup
+ (cadr heritage)
+ '()))))))


http://codereview.appspot.com/1867050/