From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 28 Nov 2018 08:53:20 +0000 (+0000)
Subject: fixup! aa477cf3a28ded82f8cbcda5e8ee317cf9490d2f
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~146
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=082fd3dd3642cd71191c9804d6c454d0f0f67ca8;p=mit-scheme.git

fixup! aa477cf3a28ded82f8cbcda5e8ee317cf9490d2f
---

diff --git a/tests/runtime/test-flonum.scm b/tests/runtime/test-flonum.scm
index b814a443b..83c5f3cc0 100644
--- 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)