HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
29c5606
)
Remove 1/3 == 1.0/3.0, not true.
author
Kevin Ryde
<user42@zip.com.au>
Wed, 18 Feb 2004 00:28:41 +0000
(
00:28
+0000)
committer
Kevin Ryde
<user42@zip.com.au>
Wed, 18 Feb 2004 00:28:41 +0000
(
00:28
+0000)
test-suite/tests/fractions.test
patch
|
blob
|
blame
|
history
diff --git
a/test-suite/tests/fractions.test
b/test-suite/tests/fractions.test
index
802369f
..
d025fed
100644
(file)
--- a/
test-suite/tests/fractions.test
+++ b/
test-suite/tests/fractions.test
@@
-41,7
+41,6
@@
(testeqv 3/4 6/8)
(testeqv 3/4 3000000000000/4000000000000)
(testeqv 3 3/1)
- (test= 1/3 (/ 1.0 3.0))
(test= -1 (/ most-negative-fixnum (- most-negative-fixnum)))
(testeq #t (integer? (/ most-negative-fixnum (- most-negative-fixnum))))