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

Make unary float optimizations less restrictive.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-06-02 17:18:29 -04:00
parent 484fb029f1
commit cc129adb39
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/typed-scheme/optimizer/float.rkt
View File

@ -76,7 +76,7 @@
(define-syntax-class float-opt-expr (define-syntax-class float-opt-expr
#:commit #:commit
(pattern (#%plain-app (~var op (float-op unary-float-ops)) f:float-expr) (pattern (#%plain-app (~var op (float-op unary-float-ops)) f:float-arg-expr)
#:when (subtypeof? this-syntax -Flonum) #:when (subtypeof? this-syntax -Flonum)
#:with opt #:with opt
(begin (log-optimization "unary float" #'op) (begin (log-optimization "unary float" #'op)