Make thie test actually check something by calling both.

diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm
index 4fb01afe228f6320ef3aa5664ea515420a082904..2349a591f0eff94f3a5cb07f2250d38d4dc0a51c 100644 (file)
--- 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)))))