[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
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/