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

Fixed unboxing of let bindings.

Browse Source
This commit is contained in:
Vincent St-Amour 2010-07-23 17:44:53 -04:00
parent 12ce9abda6
commit 5892ef2fad
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/optimizer/unboxed-let.rkt
View File

@ -62,9 +62,9 @@
(syntax-parse exp
#:literal-sets (kernel-literals)
;; used within a complex arithmetic expression? safe to unbox
;; can be used in a complex arithmetic expr, can be a direct child
[exp:inexact-complex-arith-opt-expr
(direct-child-of? #'exp)]
(andmap rec (syntax->list #'exp))]
;; recur down
[((~and op (~or (~literal #%plain-lambda) (~literal define-values)))