From d3625dd3c730b38d8d2f42f6c5ca42e1de27f33e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 27 Jul 2009 14:20:00 +0000 Subject: [PATCH] fix R6RS 'rename' on multi identifiers (PR 10361); merge to 4.1.2 svn: r15583 --- collects/r6rs/main.ss | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/collects/r6rs/main.ss b/collects/r6rs/main.ss index 3cb88cbb92..798ce5a007 100644 --- 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 ()