From 5731ff73f7973306ca239d05b6aba85461729b7f Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 19 Sep 2014 10:56:48 +0900
Subject: [PATCH] Fixing bug in test for comparing 0.0.

---
 lib/chibi/test.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm
index f6b134e0..8a956bef 100644
--- a/lib/chibi/test.scm
+++ b/lib/chibi/test.scm
@@ -249,8 +249,8 @@
   (cond
    ((> (abs a) (abs b))
     (approx-equal? b a epsilon))
-   ((zero? b)
-    (< (abs a) epsilon))
+   ((zero? a)
+    (< (abs b) epsilon))
    (else
     (< (abs (/ (- a b) b)) epsilon))))