Fix broken tests that depended on an unsafe optimization.

original commit: 14097dd90e787c08a138fa5e907680f6af96aea3
This commit is contained in:
Vincent St-Amour 2010-09-07 17:31:30 -04:00
parent ae11f47dbd
commit 73decd8674
2 changed files with 2 additions and 2 deletions

View File

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

View File

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