Teach sf about some flonum primitives worth open-coding.

diff --git a/src/sf/gconst.scm b/src/sf/gconst.scm
index afdd7bdf679b73d9cbac3e8c8946567a0b5fe5f5..bf1e870b10517ebd4f442b71e674469267458a76 100644 (file)
--- a/src/sf/gconst.scm
+++ b/src/sf/gconst.scm
@@ -116,6 +116,7 @@ USA.
     (flo:- flonum-subtract)
     (flo:/ flonum-divide)
     (flo:< flonum-less?)
+    (flo:<> flonum-is-less-or-greater?)
     (flo:= flonum-equal?)
     (flo:> flonum-greater?)
     (flo:abs flonum-abs)
@@ -129,21 +130,32 @@ USA.
     (flo:exp flonum-exp)
     (flo:expm1 flonum-expm1)
     (flo:expt flonum-expt)
+    (flo:finite? flonum-is-finite?)
     (flo:flonum? flonum?)
     (flo:floor flonum-floor)
     (flo:floor->exact flonum-floor->exact)
+    (flo:infinite? flonum-is-infinite?)
     (flo:log flonum-log)
     (flo:log1p flonum-log1p)
+    (flo:nan? flonum-is-nan?)
     (flo:negate flonum-negate)
     (flo:negative? flonum-negative?)
+    (flo:normal? flonum-is-normal?)
     (flo:positive? flonum-positive?)
     (flo:round flonum-round)
     (flo:round->exact flonum-round->exact)
+    (flo:safe-negative? flonum-is-negative?)
+    (flo:safe< flonum-is-less?)
+    (flo:safe<= flonum-is-less-or-equal?)
+    (flo:safe<> flonum-is-less-or-greater?)
+    (flo:safe> flonum-is-greater?)
+    (flo:safe>= flonum-is-greater-or-equal?)
     (flo:sin flonum-sin)
     (flo:sqrt flonum-sqrt)
     (flo:tan flonum-tan)
     (flo:truncate flonum-truncate)
     (flo:truncate->exact flonum-truncate->exact)
+    (flo:unordered? flonum-is-unordered?)
     (flo:vector-cons floating-vector-cons)
     (flo:vector-length floating-vector-length)
     (flo:vector-ref floating-vector-ref)