Added a test to the optimizer.

original commit: ea580e6ff88cb3be758690b99a1968179cbc3c26
2010-07-23 16:47:30 -04:00 · 2010-07-23 16:47:30 -04:00 · e9d9c2aca9
commit e9d9c2aca9
parent eb60ac080a
1 changed files with 6 additions and 0 deletions
--- a/collects/tests/typed-scheme/optimizer/generic/let-rhs.rkt
+++ b/collects/tests/typed-scheme/optimizer/generic/let-rhs.rkt
@ -0,0 +1,6 @@
+#lang typed/scheme #:optimize
+
+(require racket/unsafe/ops)
+
+(let ((x (+ 1.0 2.0)))
+  x)