From 934833287d115b128b3a5ce5304d914da8955a52 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 23 Sep 2008 21:24:04 -0700
Subject: [PATCH] Simplified math-compare by using bi@.

---
 extra/math/compare/compare.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/math/compare/compare.factor b/extra/math/compare/compare.factor
index 116daa1ca6..28a8eadc81 100644
--- a/extra/math/compare/compare.factor
+++ b/extra/math/compare/compare.factor
@@ -6,10 +6,10 @@ USING: math math.order kernel ;
 IN: math.compare 
 
 : absmin ( a b -- x ) 
-   [ [ abs ] dip abs < ] 2keep ? ;
+   [ [ abs ] bi@ < ] 2keep ? ;
 
 : absmax ( a b -- x ) 
-   [ [ abs ] dip abs > ] 2keep ? ;
+   [ [ abs ] bi@ > ] 2keep ? ;
 
 : posmax ( a b -- x ) 
    0 max max ;