fixup! aa477cf3a28ded82f8cbcda5e8ee317cf9490d2f

diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm
index b814a443b496580e03c089fe4a83a99979b0cba8..83c5f3cc0959f2c79d3a2bb73f3ccdaeccb0c9e0 100644 (file)
--- a/tests/runtime/test-flonum.scm
+++ b/tests/runtime/test-flonum.scm
@@ -293,12 +293,13 @@ USA.
                                (assert-eqv
                                 (no-traps (lambda () (unsafe-compare a b)))
                                 c)
-                               (if (safe-compare a b)
+                               (if (yes-traps (lambda () (safe-compare a b)))
                                    (begin
                                      (assert-true (not (flo:nan? a)))
                                      (assert-true (not (flo:nan? b)))
                                      (assert-true (unsafe-compare a b))))
-                               (if (not (safe-compare a b))
+                               (if (yes-traps
+                                    (lambda () (not (safe-compare a b))))
                                    (assert-true
                                     (or (flo:nan? a)
                                         (flo:nan? b)