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

2008-11-17 18:14:29 -05:00 · 2008-11-17 18:14:29 -05:00 · d2a67c78b2
parent fa88f8825b
commit d2a67c78b2
1 changed files with 1 additions and 1 deletions
--- 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