From 25cb5ef5687e56320ff8cace6e184d11632466f4 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 1 Jul 2010 14:48:55 -0400 Subject: [PATCH] Fixed some tests to reflect changes to the optimizer. --- .../hand-optimized/invalid-binary-nonzero-fixnum.rkt | 4 ++-- .../optimizer/hand-optimized/invalid-exact-inexact.rkt | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/typed-scheme/optimizer/hand-optimized/invalid-binary-nonzero-fixnum.rkt b/collects/tests/typed-scheme/optimizer/hand-optimized/invalid-binary-nonzero-fixnum.rkt index be8a554b06..2b094b1b7b 100644 --- a/collects/tests/typed-scheme/optimizer/hand-optimized/invalid-binary-nonzero-fixnum.rkt +++ b/collects/tests/typed-scheme/optimizer/hand-optimized/invalid-binary-nonzero-fixnum.rkt @@ -1,4 +1,4 @@ (module invalid-binary-nonzero-fixnum typed/scheme (: f ( -> Void)) - (define (f) ; in a function, to prevent evaluation - (display (quotient 4 0)))) ; 2 fixnums, but the second is 0, cannot optimize + (define f ; in a function, to prevent evaluation + (#%plain-lambda () (display (quotient 4 0))))) ; 2 fixnums, but the second is 0, cannot optimize diff --git a/collects/tests/typed-scheme/optimizer/hand-optimized/invalid-exact-inexact.rkt b/collects/tests/typed-scheme/optimizer/hand-optimized/invalid-exact-inexact.rkt index b12f4b649a..332e8468c4 100644 --- a/collects/tests/typed-scheme/optimizer/hand-optimized/invalid-exact-inexact.rkt +++ b/collects/tests/typed-scheme/optimizer/hand-optimized/invalid-exact-inexact.rkt @@ -1,2 +1,2 @@ (module exact-inexact typed/scheme - (exact->inexact 1.0)) ; not a integer, can't optimize + 1.0) ; not a integer, can't optimize