(fractions): Correction, equal? 3/4 .75 should be #f, according to R5RS.

diff --git a/test-suite/tests/fractions.test b/test-suite/tests/fractions.test
index ae900a2..28fd12a 100644 (file)
--- a/test-suite/tests/fractions.test
+++ b/test-suite/tests/fractions.test
@@ -248,7 +248,7 @@
   (testeq (eqv? 3/4 .75) #f)
   (testeq (eqv? 3/4 3/4) #t)
   (testeq (eqv? 10197734562406803221/17452826108659293487 10197734562406803221/17452826108659293487) #t)
-  (testeq (equal? 3/4 .75) #t)
+  (testeq (equal? 3/4 .75) #f)
   (testeq (number? 3/4) #t)
   (testeq (real? 3/4) #t)
   (testeq (integer? 3/4) #f)