From 0b4cd1790f3717b04a587876b89d567b30ff3e79 Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 30 Nov 2018 05:51:26 +0000
Subject: [PATCH] Enable traps here to confirm they don't happen.

---
 tests/runtime/test-arith.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index d4d8ff899..f9c343d17 100644
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -766,8 +766,10 @@ USA.
        (flo:preserving-environment
         (lambda ()
           (flo:clear-exceptions! (flo:supported-exceptions))
-          (sqrt x)
-          (flo:test-exceptions (flo:supported-exceptions))))
+          (yes-traps
+           (lambda ()
+             (sqrt x)
+             (flo:test-exceptions (flo:supported-exceptions))))))
        0))))
 
 (define-test 'sqrt-snan
-- 
2.25.1