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

fix r6rs generate-temporaries

Browse Source 
svn: r9376
This commit is contained in:
Matthew Flatt 2008-04-20 01:03:21 +00:00
parent 52ca901576
commit 31ee3b70e7
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/rnrs/syntax-case-6.ss
View File

@ -13,9 +13,9 @@
bound-identifier=? bound-identifier=?
(rename-out [r6rs:free-identifier=? free-identifier=?] (rename-out [r6rs:free-identifier=? free-identifier=?]
[r6rs:datum->syntax datum->syntax] [r6rs:datum->syntax datum->syntax]
[r6rs:syntax->datum syntax->datum]) [r6rs:syntax->datum syntax->datum]
generate-temporaries [r6rs:generate-temporaries generate-temporaries]
(rename-out [r6rs:with-syntax with-syntax] [r6rs:with-syntax with-syntax]
[r6rs:quasisyntax quasisyntax]) [r6rs:quasisyntax quasisyntax])
unsyntax unsyntax-splicing unsyntax unsyntax-splicing
(rename-out [raise-syntax-error syntax-violation])) (rename-out [raise-syntax-error syntax-violation]))
@ -31,6 +31,12 @@
(define (r6rs:syntax->datum stx) (define (r6rs:syntax->datum stx)
(convert-pairs (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) (define (make-variable-transformer proc)
(make-set!-transformer proc)) (make-set!-transformer proc))