From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 18 Nov 2018 01:19:30 +0000 (+0000)
Subject: Fix release note on floating-point exceptions.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~53
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2f9136b0b546e6196a04e52d9fd9e6db20e57184;p=mit-scheme.git

Fix release note on floating-point exceptions.
---

diff --git a/src/relnotes/flotrap b/src/relnotes/flotrap
index e946c3dba..a1062949e 100644
--- a/src/relnotes/flotrap
+++ b/src/relnotes/flotrap
@@ -9,6 +9,9 @@ If you want to trap on (e.g.) invalid-operation, you can do
   (lambda ()
     ...))
 
+You can find the set of all exceptions that can be trapped with
+(flo:trappable-exceptions).
+
 You can also test for floating-point exceptions after a computation
 without trapping.  Before you can do this for the first time in any
 thread, you must clear the floating-point exceptions (otherwise there
@@ -16,7 +19,7 @@ may be residual garbage from past computations):
 
 (flo:preserving-environment
  (lambda ()
-   (flo:clear-exceptions! (flo:all-exceptions))
+   (flo:clear-exceptions! (flo:supported-exceptions))
    (let ((x (do-big-computation)))
      (if (not (zero? (flo:test-exceptions (flo:exception:underflow))))
          (warn "underflow"))