From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 15 Dec 2018 20:38:48 +0000 (+0000)
Subject: Fix mistaken expansion of flo:<> as flonum-is-less-or-greater?.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~8
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d7ed792b9ca6b5a7d71a13bb95f22f26a5789c8f;p=mit-scheme.git

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 36f2ea98c..2e7dc53fd 100644
--- 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)