From 4f45da310af3dadbdf41664ae2d75df44ea39421 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 28 Dec 2009 00:06:59 +0900 Subject: [PATCH] removing flonums from basic tests --- tests/r5rs-tests.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/r5rs-tests.scm b/tests/r5rs-tests.scm index e91bd57e..1b22acd2 100644 --- a/tests/r5rs-tests.scm +++ b/tests/r5rs-tests.scm @@ -168,15 +168,15 @@ (test #t (equal? 2 2)) -(test #f (eqv? 2 2.0)) +;;(test #f (eqv? 2 2.0)) -(test #f (equal? 2.0 2)) +;;(test #f (equal? 2.0 2)) (test #t (equal? (make-vector 5 'a) (make-vector 5 'a))) (test 4 (max 3 4)) -(test 4 (max 3.9 4)) +;;(test 4 (max 3.9 4)) (test 7 (+ 3 4))