Cleanup some lint warnings.

[factor.git] / extra / math / compare / compare.factor

diff --git a/extra/math/compare/compare.factor b/extra/math/compare/compare.factor
index b48641d723b19bce1fcb19c9b18cec54679a4c92..f7f66da37ca88d49b5c441afb62b7bde5b5bc55d 100644 (file)
--- a/extra/math/compare/compare.factor
+++ b/extra/math/compare/compare.factor
@@ -4,10 +4,10 @@ USING: math math.order kernel ;
 IN: math.compare
 
 : absmin ( a b -- x )
-    [ [ abs ] bi@ < ] 2keep ? ;
+    [ [ abs ] bi@ < ] most ;
 
 : absmax ( a b -- x )
-    [ [ abs ] bi@ > ] 2keep ? ;
+    [ [ abs ] bi@ > ] most ;
 
 : posmax ( a b -- x )
     0 max max ;