From 9c89287b24da48b2b9edccb0e220afea1d1af2ca Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 13 Jul 2010 18:34:44 -0400 Subject: [PATCH] Fixed bugs in the tests. original commit: b0788372ea1fc619036656b88aab1f4736a4d5e3 --- .../typed-scheme/optimizer/generic/dead-else.rkt | 12 ++++++------ .../typed-scheme/optimizer/generic/dead-then.rkt | 12 ++++++------ 2 files changed, 12 insertions(+), 12 deletions(-) diff --git a/collects/tests/typed-scheme/optimizer/generic/dead-else.rkt b/collects/tests/typed-scheme/optimizer/generic/dead-else.rkt index 40194c44..6e2868ef 100644 --- a/collects/tests/typed-scheme/optimizer/generic/dead-else.rkt +++ b/collects/tests/typed-scheme/optimizer/generic/dead-else.rkt @@ -1,8 +1,8 @@ #lang typed/scheme #:optimize (require racket/unsafe/ops) -(if (number? 3) - (+ 2.0 3.0) - (+ 4.0 5.0)) -(if #t - (+ 2.0 3.0) - (+ 4.0 5.0)) +(display (if (number? 3) + (+ 2.0 3.0) + (+ 4.0 5.0))) +(display (if #t + (+ 2.0 3.0) + (+ 4.0 5.0))) diff --git a/collects/tests/typed-scheme/optimizer/generic/dead-then.rkt b/collects/tests/typed-scheme/optimizer/generic/dead-then.rkt index 719452b0..c4ec905b 100644 --- a/collects/tests/typed-scheme/optimizer/generic/dead-then.rkt +++ b/collects/tests/typed-scheme/optimizer/generic/dead-then.rkt @@ -1,8 +1,8 @@ #lang typed/scheme #:optimize (require racket/unsafe/ops) -(if (number? "eh") - (+ 2.0 3.0) - (+ 4.0 5.0)) -(if #f - (+ 2.0 3.0) - (+ 4.0 5.0)) +(display (if (number? "eh") + (+ 2.0 3.0) + (+ 4.0 5.0))) +(display (if #f + (+ 2.0 3.0) + (+ 4.0 5.0)))