From 082fd3dd3642cd71191c9804d6c454d0f0f67ca8 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Wed, 28 Nov 2018 08:53:20 +0000 Subject: [PATCH] fixup! aa477cf3a28ded82f8cbcda5e8ee317cf9490d2f --- tests/runtime/test-flonum.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.25.1