fix R6RS 'rename' on multi identifiers (PR 10361); merge to 4.1.2

svn: r15583
2009-07-27 14:20:00 +00:00 · 2009-07-27 14:20:00 +00:00 · d3625dd3c7
commit d3625dd3c7
parent b83a0a34c2
1 changed files with 8 additions and 6 deletions
--- a/collects/r6rs/main.ss
+++ b/collects/r6rs/main.ss
@ -233,12 +233,14 @@ FIXME:
                                              orig
                                              ex)])))
                   exs)
-         (add-no-set!-identifiers (map (lambda (ex)
-                                         (syntax-case ex ()
-                                           [(rename (id ex-id))
-                                            #'id]
-                                           [id ex]))
-                                       exs))
+         (add-no-set!-identifiers (apply 
+                                   append
+                                   (map (lambda (ex)
+                                          (syntax-case ex (rename)
+                                            [(rename (id ex-id) ...)
+                                             (syntax->list #'(id ...))]
+                                            [id (list ex)]))
+                                        exs)))
         (with-syntax ([((ex ...) ...)
                        (map (lambda (ex)
                               (syntax-case ex ()