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

fix stxparam bug (from Olin via Sam)

Browse Source 
svn: r11304
This commit is contained in:
Matthew Flatt 2008-08-18 22:19:18 +00:00
parent 972128abf0
commit c09b9baae8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scheme/private/stxparamkey.ss
View File

@ -34,7 +34,7 @@
(syntax-case stx () (syntax-case stx ()
[(set! id _expr) [(set! id _expr)
(free-identifier=? #'set! set!-stx) (free-identifier=? #'set! set!-stx)
(syntax/loc stx (set! target expr))] (syntax/loc stx (set! target _expr))]
[(id . rest) [(id . rest)
(let ([v (syntax (target . rest))]) (let ([v (syntax (target . rest))])
(datum->syntax (datum->syntax