summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2004-08-17 23:20:11 +0000
committerKevin Ryde <user42@zip.com.au>2004-08-17 23:20:11 +0000
commitb82cab94d643ed307cd077b7be4a9baab64ac1ea (patch)
tree4a1d6f3ccb7e018f41f219e6cada548b5230daa7
parent728ad4b7cd022a94fd4a396f50ce599c5ccf7fbf (diff)
downloadguile-b82cab94d643ed307cd077b7be4a9baab64ac1ea.tar.gz
(fractions): Correction, equal? 3/4 .75 should be #f, according to R5RS.
-rw-r--r--test-suite/tests/fractions.test2
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/tests/fractions.test b/test-suite/tests/fractions.test
index ae900a256..28fd12aa4 100644
--- 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)