Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-24 04:25:08 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing bug in test for comparing 0.0.

Browse source
This commit is contained in:
Alex Shinn 2014-09-19 10:56:48 +09:00
parent 1d252ae893
commit 5731ff73f7
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/test.scm
View file

@ -249,8 +249,8 @@
(cond (cond
((> (abs a) (abs b)) ((> (abs a) (abs b))
(approx-equal? b a epsilon)) (approx-equal? b a epsilon))
((zero? b) ((zero? a)
(< (abs a) epsilon)) (< (abs b) epsilon))
(else (else
(< (abs (/ (- a b) b)) epsilon)))) (< (abs (/ (- a b) b)) epsilon))))