From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 30 Nov 2018 05:51:26 +0000 (+0000)
Subject: Enable traps here to confirm they don't happen.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~99
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0b4cd1790f3717b04a587876b89d567b30ff3e79;p=mit-scheme.git

Enable traps here to confirm they don't happen.
---

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