From 07e223564f0811d47d90c319df8e83f30c5afe6e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 20 Mar 2013 15:53:37 -0700
Subject: [PATCH] math.ranges: Stopgap fix for math.ranges unit tests. See
 issues #803, #800, #508.

---
 basis/math/ranges/ranges.factor | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/basis/math/ranges/ranges.factor b/basis/math/ranges/ranges.factor
index b095eae5d5..ca5fcb2153 100644
--- a/basis/math/ranges/ranges.factor
+++ b/basis/math/ranges/ranges.factor
@@ -9,8 +9,16 @@ TUPLE: range
 { length read-only }
 { step read-only } ;
 
+<PRIVATE
+
+: sign/mod ( x y -- z w ) [ [ /i ] 2keep pick * - ] keep 0 < [ neg ] when ; inline
+
+PRIVATE>
+
 : <range> ( a b step -- range )
-    [ over - ] dip [ /i 1 + 0 max ] keep range boa ; inline
+    [ over - ] dip
+    [ sign/mod 0 < [ 1 + ] unless 0 max ] keep
+    range boa ; inline
 
 M: range length ( seq -- n ) length>> ; inline