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

stxclass: undo r13714, because it messes up non-stx attributes

Browse Source 
svn: r13723
This commit is contained in:
Ryan Culpepper 2009-02-18 04:44:38 +00:00
parent 59727cc4bc
commit 112811258b
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -113,9 +113,8 @@
(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))])
[with-rhs (syntax/loc e with-rhs)]) #`(let ([x #,e]
#`(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))