mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +02:00
Code Activity

Don't expect (expt 1/2 2.0) to yield an exact result, use (expt 1/2 2)

Browse source 
instead.
This commit is contained in:
Marius Vollmer 2004-09-08 16:19:51 +00:00
parent be2540fa56
commit 6005b7a235
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test-suite/tests/fractions.test
View file

@ -111,7 +111,7 @@
(testeqv (expt 2 1/2) (sqrt 2)) (testeqv (expt 2 1/2) (sqrt 2))
(testeqv (expt 1/2 2) 1/4) (testeqv (expt 1/2 2) 1/4)
(testeqv (expt 2.0 1/2) (sqrt 2)) (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 (real-part 3/4) 3/4)
(testeqv (imag-part 3/4) 0) (testeqv (imag-part 3/4) 0)
(testeqv (numerator 3/4) 3) (testeqv (numerator 3/4) 3)