fix r6rs library-body handling (PR 10693)

svn: r17628
2010-01-13 12:59:15 +00:00 · 2010-01-13 12:59:15 +00:00 · 70b3d5abcb
commit 70b3d5abcb
parent eb9e007048
1 changed files with 2 additions and 1 deletions
--- a/collects/r6rs/main.ss
+++ b/collects/r6rs/main.ss
@ -157,7 +157,8 @@ FIXME:
       (syntax-case a (begin #%require)
         [(def . _)
          (ormap (lambda (id)
-                   (free-identifier=? id #'def))
+                   (and (identifier? id)
+                        (free-identifier=? id #'def)))
                 (list #'define-values
                       #'define-syntaxes
                       #'define-values-for-syntax))