From 73decd8674ba87b2a596a33e4d55b98ba513ba60 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 7 Sep 2010 17:31:30 -0400 Subject: [PATCH] Fix broken tests that depended on an unsafe optimization. original commit: 14097dd90e787c08a138fa5e907680f6af96aea3 --- .../typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt | 2 +- collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt b/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt index 6c82520d..59a38b9a 100644 --- a/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/binary-nonzero-fixnum.rkt @@ -1,4 +1,4 @@ #lang typed/scheme #:optimize (require racket/unsafe/ops) -(quotient (vector-length '#(1 2 3)) 2) +(modulo (vector-length '#(1 2 3)) 2) diff --git a/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt b/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt index 134bd64d..c3fda6ea 100644 --- a/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt +++ b/collects/tests/typed-scheme/optimizer/tests/float-promotion.rkt @@ -1,5 +1,5 @@ #lang typed/scheme #:optimize (require racket/unsafe/ops racket/flonum) -(+ (quotient 1 1) 2.0) +(+ (modulo 1 1) 2.0) (+ (expt 100 100) 2.0)