diff options
author | Kevin Ryde <user42@zip.com.au> | 2004-08-17 23:20:11 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2004-08-17 23:20:11 +0000 |
commit | b82cab94d643ed307cd077b7be4a9baab64ac1ea (patch) | |
tree | 4a1d6f3ccb7e018f41f219e6cada548b5230daa7 | |
parent | 728ad4b7cd022a94fd4a396f50ce599c5ccf7fbf (diff) | |
download | guile-b82cab94d643ed307cd077b7be4a9baab64ac1ea.tar.gz |
(fractions): Correction, equal? 3/4 .75 should be #f, according to R5RS.
-rw-r--r-- | test-suite/tests/fractions.test | 2 |
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) |