--- fractions.test.~1.2.~ 1970-01-01 10:00:01.000000000 +1000 +++ fractions.test 2003-11-21 17:27:24.000000000 +1000 @@ -25,6 +25,10 @@ (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)))) + (testeqv (+ 1/4 1/2) 3/4) (testeqv (* 1/4 2/3) 1/6) (testeqv (/ 1/4 2/3) 3/8)