From 70b3d5abcbc17c61d68bfdc7f6dc7157d8881f23 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 13 Jan 2010 12:59:15 +0000
Subject: [PATCH] fix r6rs library-body handling (PR 10693)

svn: r17628
---
 collects/r6rs/main.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/r6rs/main.ss b/collects/r6rs/main.ss
index 798ce5a007..f946d39bbd 100644
--- 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))