From bb00cdaf1b0a2614599449d85b92ab3715924d41 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 4 Jun 2013 21:58:32 +0900
Subject: [PATCH] Default test comparator should require same exactness.

---
 lib/chibi/test.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm
index 31403b41..b4891576 100644
--- a/lib/chibi/test.scm
+++ b/lib/chibi/test.scm
@@ -671,6 +671,7 @@
       (if (real? expect)
           (and (inexact? expect)
                (real? res)
+               (inexact? res)
                (approx-equal? expect res (current-test-epsilon)))
           (and (complex? res)
                (complex? expect)