From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 28 Nov 2018 08:47:41 +0000 (+0000)
Subject: Make thie test actually check something by calling both.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~149
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8cc5a29149008f438634d0ac7c2355e4fe539e7c;p=mit-scheme.git

Make thie test actually check something by calling both.
---

diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm
index 4fb01afe2..2349a591f 100644
--- a/tests/runtime/test-flonum.scm
+++ b/tests/runtime/test-flonum.scm
@@ -223,7 +223,7 @@ USA.
                              (if (unsafe-compare x y)
                                  (assert-true (safe-compare x y)))
                              (if (not (unsafe-compare x y))
-                                 (assert-false (unsafe-compare x y)))))))
+                                 (assert-false (safe-compare x y)))))))
                    cases))
             cases)))))