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

fixed unbox-let optimization srcloc propigation

Browse Source
This commit is contained in:
Spencer Florence 2015-08-20 15:20:51 -05:00
parent 30cdfd16cc
commit c8ebec62e8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
typed-racket-lib/typed-racket/optimizer/unboxed-let.rkt
View File

@ -99,14 +99,15 @@
(define-syntax-class unboxed-clauses
#:attributes (bindings)
(pattern (clauses:unboxed-clause ...)
#:attr bindings (delay (template ((?@ . clauses.bindings) ...)))))]
#:attr bindings (delay (template ((?@ . clauses.bindings) ...)))))
(define top-stx this-syntax)]
#:attr opt
(syntax-parse #'(clause ...)
[clauses:unboxed-clauses
(delay
(quasisyntax/loc/origin
this-syntax #'letk.kw
top-stx #'letk.kw
(letk.key ... clauses.bindings body.opt ...)))])))