From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 1 Dec 2018 22:50:22 +0000 (+0000)
Subject: Teach sf about flo:safe-zero? and flo:safe=.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~67
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=478fa0200e2d4d4a6bc87fe052ec32d57df41a9e;p=mit-scheme.git

Teach sf about flo:safe-zero? and flo:safe=.
---

diff --git a/src/sf/gconst.scm b/src/sf/gconst.scm
index ffedb2fbc..36f2ea98c 100644
--- a/src/sf/gconst.scm
+++ b/src/sf/gconst.scm
@@ -145,9 +145,11 @@ USA.
     (flo:positive? flonum-positive?)
     (flo:round flonum-round)
     (flo:round->exact flonum-round->exact)
+    (flo:safe-zero? flonum-is-zero?)
     (flo:safe< flonum-is-less?)
     (flo:safe<= flonum-is-less-or-equal?)
     (flo:safe<> flonum-is-less-or-greater?)
+    (flo:safe= flonum-is-equal?)
     (flo:safe> flonum-is-greater?)
     (flo:safe>= flonum-is-greater-or-equal?)
     (flo:sign-negative? flonum-is-negative?)