From 59926b8edc171248cd85802a5e1856e82d60832d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 16 Feb 2008 00:38:36 +0000
Subject: [PATCH] r6rs import fixes

svn: r8679
---
 collects/r6rs/main.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/r6rs/main.ss b/collects/r6rs/main.ss
index b9f7ba82ee..a1016f3b7b 100644
--- a/collects/r6rs/main.ss
+++ b/collects/r6rs/main.ss
@@ -202,7 +202,7 @@ FIXME:
                                       (symbol->string (syntax-e id)))
                                     (syntax->list #'(id1 id2 ...)))])
                      (if (= 1 (length strs))
-                         (values (car strs) "main")
+                         (values (list (car strs)) "main")
                          (values (reverse (cdr (reverse strs)))
                                  (car (reverse strs)))))])
        (let ([base (build-path (with-handlers ([exn:fail?
@@ -221,7 +221,7 @@ FIXME:
          (let ([vers (find-version (path->bytes base) (syntax->datum #'(vers ...)))])
            (if vers
                (datum->syntax
-                stx
+                orig
                 `(,#'lib ,(apply string-append
                                  (car coll)
                                  (append