typo

svn: r11519
2008-09-02 08:09:52 +00:00 · 2008-09-02 08:09:52 +00:00 · db81f6afa1
commit db81f6afa1
parent b0f32780ce
1 changed files with 1 additions and 1 deletions
--- 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