From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 23 Jan 2019 07:52:00 +0000 (+0000)
Subject: Expect failure, not error, if trapping is not supported.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~25
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=24af9689f0692497e38963ac892e6955473772bf;p=mit-scheme.git

Expect failure, not error, if trapping is not supported.

Makes these tests pass on my arm64 laptop.
---

diff --git a/tests/microcode/test-flonum-except.scm b/tests/microcode/test-flonum-except.scm
index b93e09eda..c6d8e26f5 100644
--- a/tests/microcode/test-flonum-except.scm
+++ b/tests/microcode/test-flonum-except.scm
@@ -87,7 +87,7 @@ USA.
 	 (with-failure-expected
 	     (if (flo:have-trap-enable/disable?)
 		 xfail
-		 assert-error)
+		 expect-failure)
 	   (lambda ()
 	     (assert-error
 	      (lambda ()