One more #:literal-sets

Missed this in 07bde5063b5a3a83f61e85f00a1c6ce6e0a097d2 original commit: 4a078e36d90e2f9ba2a7696c75dd08e47fa52ce2
2014-03-01 12:39:28 -05:00 · 2014-03-01 12:39:28 -05:00 · 6ade61f913
commit 6ade61f913
parent 2dd75d1089
1 changed files with 1 additions and 0 deletions
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float-complex.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/float-complex.rkt
@ -136,6 +136,7 @@
 (define-syntax-class unboxed-float-complex-opt-expr
  #:commit
  #:attributes (real-binding imag-binding (bindings 1))
+  #:literal-sets (kernel-literals)

  ;; We let racket's optimizer handle optimization of 0.0s
  (pattern (#%plain-app op:+^ (~between cs:unboxed-float-complex-opt-expr 2 +inf.0) ...)