Fix mistaken expansion of flo:<> as flonum-is-less-or-greater?.

Global flo:<> is the ordered version, which raises exception on qNaN;
primitive flonum-is-less-or-greater? is the unordered version, which
returns false on qNaN.

diff --git a/src/sf/gconst.scm b/src/sf/gconst.scm
index 36f2ea98cf1a3c6996e1f9af0d8702588cd0c78a..2e7dc53fdec0aefe4998ed17cb538b520f31bd1b 100644 (file)
--- a/src/sf/gconst.scm
+++ b/src/sf/gconst.scm
@@ -116,7 +116,6 @@ 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)