diff --git a/collects/tests/typed-scheme/optimizer/generic/unboxed-let2.rkt b/collects/tests/typed-scheme/optimizer/generic/unboxed-let2.rkt new file mode 100644 index 00000000..f5f8c2a5 --- /dev/null +++ b/collects/tests/typed-scheme/optimizer/generic/unboxed-let2.rkt @@ -0,0 +1,7 @@ +#lang typed/scheme #:optimize + +(require racket/unsafe/ops) + +(let ((t1 (+ 1.0+2.0i 2.0+4.0i)) + (t2 (+ 3.0+6.0i 4.0+8.0i))) + (+ t1 t2))