From a248746a2d8d7e1cd1bbdce9352c47ab0cd720ea Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Sat, 24 Jul 2010 17:01:07 -0400
Subject: [PATCH] Added one more test for unboxed let bindings.

original commit: ec39ea5f3352068497a97c959e72814fab7089d0
---
 .../tests/typed-scheme/optimizer/generic/unboxed-let2.rkt  | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 collects/tests/typed-scheme/optimizer/generic/unboxed-let2.rkt

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))