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

diff --git a/src/sf/gconst.scm b/src/sf/gconst.scm
index ffedb2fbcad69a7f8b421d8b8d516f369288affd..36f2ea98cf1a3c6996e1f9af0d8702588cd0c78a 100644 (file)
--- 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?)