Parent Directory | Revision Log | Patch
revision 1.2 by mvo, Wed Nov 19 05:15:51 2003 UTC | revision 1.3 by kryde, Tue Dec 2 21:24:58 2003 UTC | |
---|---|---|
# | Line 25 | Line 25 |
25 | (testeqv 3/4 3000000000000/4000000000000) | (testeqv 3/4 3000000000000/4000000000000) |
26 | (testeqv 3 3/1) | (testeqv 3 3/1) |
27 | (test= 1/3 (/ 1.0 3.0)) | (test= 1/3 (/ 1.0 3.0)) |
28 | ||
29 | (test= -1 (/ most-negative-fixnum (- most-negative-fixnum))) | |
30 | (testeq #t (integer? (/ most-negative-fixnum (- most-negative-fixnum)))) | |
31 | ||
32 | (testeqv (+ 1/4 1/2) 3/4) | (testeqv (+ 1/4 1/2) 3/4) |
33 | (testeqv (* 1/4 2/3) 1/6) | (testeqv (* 1/4 2/3) 1/6) |
34 | (testeqv (/ 1/4 2/3) 3/8) | (testeqv (/ 1/4 2/3) 3/8) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |