Resolved merge.

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

diff --git a/extra/math/compare/compare.factor b/extra/math/compare/compare.factor
index 93a8da7cf3a39df182658ed56b8a4932f3353b6a..b48641d723b19bce1fcb19c9b18cec54679a4c92 100644 (file)
--- a/extra/math/compare/compare.factor
+++ b/extra/math/compare/compare.factor
@@ -1,8 +1,6 @@
 ! Copyright (C) 2008 John Benediktsson.
 ! See http://factorcode.org/license.txt for BSD license
-
 USING: math math.order kernel ;
-
 IN: math.compare
 
 : absmin ( a b -- x )
@@ -16,6 +14,3 @@ IN: math.compare
 
 : negmin ( a b -- x )
     0 min min ;
-
-: clamp ( value a b -- x )
-    [ max ] [ min ] bi* ;