Enable traps here to confirm they don't happen.

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index d4d8ff899fc77f8f14f325d1af00535d2109bf79..f9c343d1773e223b2cf98bb599042a7a2920e340 100644 (file)
--- 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