Replace >r r> usage with dip in math.ranges

diff --git a/basis/math/ranges/ranges.factor b/basis/math/ranges/ranges.factor
index 5acdc43ca3c50eab73957aa04c1081c2a4d4caab..41fd28e441d6190791bbe7c16b2b208e31f1f13f 100644 (file)
--- a/basis/math/ranges/ranges.factor
+++ b/basis/math/ranges/ranges.factor
@@ -8,7 +8,7 @@ TUPLE: range
 { step read-only } ;
 
 : <range> ( a b step -- range )
-    >r over - r>
+    [ over - ] dip
     [ / 1+ 0 max >integer ] keep
     range boa ; inline