suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r15583
This commit is contained in:
Matthew Flatt 2009-07-27 14:20:00 +00:00
parent b83a0a34c2
commit d3625dd3c7
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/r6rs/main.ss
View File

@ -233,12 +233,14 @@ FIXME:
orig orig
ex)]))) ex)])))
exs) exs)
(add-no-set!-identifiers (map (lambda (ex) (add-no-set!-identifiers (apply
(syntax-case ex () append
[(rename (id ex-id)) (map (lambda (ex)
#'id] (syntax-case ex (rename)
[id ex])) [(rename (id ex-id) ...)
exs)) (syntax->list #'(id ...))]
[id (list ex)]))
exs)))
(with-syntax ([((ex ...) ...) (with-syntax ([((ex ...) ...)
(map (lambda (ex) (map (lambda (ex)
(syntax-case ex () (syntax-case ex ()