From d7ed792b9ca6b5a7d71a13bb95f22f26a5789c8f Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 15 Dec 2018 20:38:48 +0000
Subject: [PATCH] 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.
---
 src/sf/gconst.scm | 1 -
 1 file changed, 1 deletion(-)

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)
-- 
2.25.1