From 96df741f980c07684b9f14a09961619811e42d91 Mon Sep 17 00:00:00 2001 From: Mike Solomon Date: Thu, 12 Aug 2010 11:07:35 +0200 Subject: [PATCH 2/3] Symbol checking --- scm/define-event-classes.scm | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) diff --git a/scm/define-event-classes.scm b/scm/define-event-classes.scm index ebcdbde..b964f6a 100644 --- a/scm/define-event-classes.scm +++ b/scm/define-event-classes.scm @@ -73,6 +73,8 @@ (define-public (ly:define-event-class leaf heritage) (cond + ((not (symbol? leaf)) + (ly:warning "All class names must be symbols.")) ((not (eq? leaf (car heritage))) (ly:warning "All classes must be the last in their matrilineal line.")) ((not (equal? (cdr heritage) (hashq-ref ancestor-lookup (cadr heritage) '()))) -- 1.6.6.1