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=?
(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))