From 48e7d929135d5f83a1877ed3b73e681c7506f79f Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 8 Jun 2005 04:29:54 +0000
Subject: [PATCH] catch a bad syntax

svn: r67
---
 collects/swindle/clos.ss | 1 +
 1 file changed, 1 insertion(+)

diff --git a/collects/swindle/clos.ss b/collects/swindle/clos.ss
index 8db9023b0f..b6865857ae 100644
--- 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))