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