From 31ee3b70e777904e06ba3b07ab107424d7b0db01 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 20 Apr 2008 01:03:21 +0000 Subject: [PATCH] fix r6rs generate-temporaries svn: r9376 --- collects/rnrs/syntax-case-6.ss | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/collects/rnrs/syntax-case-6.ss b/collects/rnrs/syntax-case-6.ss index f5bab60504..367f1fb36f 100644 --- a/collects/rnrs/syntax-case-6.ss +++ b/collects/rnrs/syntax-case-6.ss @@ -13,9 +13,9 @@ bound-identifier=? (rename-out [r6rs:free-identifier=? free-identifier=?] [r6rs:datum->syntax datum->syntax] - [r6rs:syntax->datum syntax->datum]) - generate-temporaries - (rename-out [r6rs:with-syntax with-syntax] + [r6rs:syntax->datum syntax->datum] + [r6rs:generate-temporaries generate-temporaries] + [r6rs:with-syntax with-syntax] [r6rs:quasisyntax quasisyntax]) unsyntax unsyntax-splicing (rename-out [raise-syntax-error syntax-violation])) @@ -31,6 +31,12 @@ (define (r6rs:syntax->datum stx) (convert-pairs (syntax->datum stx))) +(define (r6rs:generate-temporaries l) + (list->mlist + (generate-temporaries (if (mlist? l) + (mlist->list l) + l)))) + (define (make-variable-transformer proc) (make-set!-transformer proc))