From d2a67c78b2b385b3286d376c50a6f02fbfbb3b3b Mon Sep 17 00:00:00 2001
From: Aaron Schaefer <aaron@elasticdog.com>
Date: Mon, 17 Nov 2008 18:14:29 -0500
Subject: [PATCH] Replace >r r> usage with dip in math.ranges
---
basis/math/ranges/ranges.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/math/ranges/ranges.factor b/basis/math/ranges/ranges.factor
index 5acdc43ca3..41fd28e441 100644
--- 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