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

One more #:literal-sets

Browse Source 
Missed this in 07bde5063b
This commit is contained in:
Asumu Takikawa 2014-03-01 12:39:28 -05:00
parent 5f7bab7506
commit 4a078e36d9
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float-complex.rkt
View File

@ -136,6 +136,7 @@
(define-syntax-class unboxed-float-complex-opt-expr (define-syntax-class unboxed-float-complex-opt-expr
#:commit #:commit
#:attributes (real-binding imag-binding (bindings 1)) #:attributes (real-binding imag-binding (bindings 1))
#:literal-sets (kernel-literals)
;; We let racket's optimizer handle optimization of 0.0s ;; We let racket's optimizer handle optimization of 0.0s
(pattern (#%plain-app op:+^ (~between cs:unboxed-float-complex-opt-expr 2 +inf.0) ...) (pattern (#%plain-app op:+^ (~between cs:unboxed-float-complex-opt-expr 2 +inf.0) ...)