From 6005b7a23522ee8857d34d0c024bca74b6af1d2b Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Wed, 8 Sep 2004 16:19:51 +0000 Subject: [PATCH] Don't expect (expt 1/2 2.0) to yield an exact result, use (expt 1/2 2) instead. --- test-suite/tests/fractions.test | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test-suite/tests/fractions.test b/test-suite/tests/fractions.test index 28fd12aa4..21685b585 100644 --- a/test-suite/tests/fractions.test +++ b/test-suite/tests/fractions.test @@ -111,7 +111,7 @@ (testeqv (expt 2 1/2) (sqrt 2)) (testeqv (expt 1/2 2) 1/4) (testeqv (expt 2.0 1/2) (sqrt 2)) - (testeqv (expt 1/2 2.0) 1/4) + (testeqv (expt 1/2 2) 1/4) (testeqv (real-part 3/4) 3/4) (testeqv (imag-part 3/4) 0) (testeqv (numerator 3/4) 3)