[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: n . puttock
Subject: Re: Adds ly:define-event-class (issue1867050)
Date: Sat, 28 Aug 2010 20:22:05 +0000

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

(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."))

(_ "...")


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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]