catch a bad syntax

svn: r67
2005-06-08 04:29:54 +00:00 · 2005-06-08 04:29:54 +00:00 · 48e7d92913
commit 48e7d92913
parent daa18fcba0
1 changed files with 1 additions and 0 deletions
--- a/collects/swindle/clos.ss
+++ b/collects/swindle/clos.ss
@ -571,6 +571,7 @@
 (defsyntax (make-defclass-form stx)
  (syntax-case stx ()
    [(_ class-maker name supers . slots0)
+     (identifier? #'name)
     (let loop ([slots1 #'slots0] [slots2 '()])
       (syntax-case slots1 ()
         [(slot more ...) (not (syntax-keyword? #'slot))