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

stxclass: convert rhs of #:with to syntax

Browse Source 
svn: r13714
This commit is contained in:
Ryan Culpepper 2009-02-18 00:04:32 +00:00
parent 770aab6700
commit 12fd4bfc56
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/stxclass/private/codegen.ss
View File

@ -111,8 +111,9 @@
(let ([inner (let ([inner
(wrap-pvars (pattern-attrs p) (wrap-pvars (pattern-attrs p)
(convert-sides rest main-var body-expr))]) (convert-sides rest main-var body-expr))])
(with-syntax ([(x fail-k) (generate-temporaries #'(x fail-k))]) (with-syntax ([(x fail-k) (generate-temporaries #'(x fail-k))]
#`(let ([x #,e] [with-rhs (syntax/loc e with-rhs)])
#`(let ([x (datum->syntax #f #,e (quote-syntax with-rhs))]
[fail-k enclosing-fail]) [fail-k enclosing-fail])
#,(parse:pks (list #'x) #,(parse:pks (list #'x)
(list (done-frontier #'x)) (list (done-frontier #'x))