From db81f6afa134be751ef241a3df9e93b977adcf33 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 2 Sep 2008 08:09:52 +0000
Subject: [PATCH] typo

svn: r11519
---
 collects/syntax/module-reader.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/syntax/module-reader.ss b/collects/syntax/module-reader.ss
index 824bc7d38e..fbb5f1717b 100644
--- a/collects/syntax/module-reader.ss
+++ b/collects/syntax/module-reader.ss
@@ -16,7 +16,7 @@
          (let loop ([body (syntax->list #'(body ...))])
            (if (not (and (pair? body)
                          (pair? (cdr body))
-                         (not (keyword? (car body)))))
+                         (keyword? (syntax-e (car body)))))
              (datum->syntax stx body stx)
              (let* ([k (car body)] [k* (syntax-e k)] [v (cadr body)])
                (cond