Cleanup some lint warnings.

[factor.git] / core / math / floats / floats.factor

diff --git a/core/math/floats/floats.factor b/core/math/floats/floats.factor
index 49e5ec30ccb3ff8cb747ff5c326f380cc8a1ca6c..9c8efbfbb101fbe4ef722d87b6926438fe319232 100644 (file)
--- a/core/math/floats/floats.factor
+++ b/core/math/floats/floats.factor
@@ -3,7 +3,7 @@
 USING: kernel math math.private math.order ;
 IN: math.floats.private
 
-: float-unordered? ( x y -- ? ) [ fp-nan? ] bi@ or ;
+: float-unordered? ( x y -- ? ) [ fp-nan? ] either? ;
 : float-min ( x y -- z ) [ float< ] most ; foldable
 : float-max ( x y -- z ) [ float> ] most ; foldable