One more #:literal-sets

Missed this in 07bde5063b
2014-03-01 12:39:28 -05:00 · 2014-03-01 12:39:28 -05:00 · 4a078e36d9
commit 4a078e36d9
parent 5f7bab7506
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) ...)