From 0ec2bf80dad99686a4c232a9993e20b4f96047bc Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 31 Jan 2010 14:46:20 -0600 Subject: [PATCH] Add [1,b) to math.ranges. Use [1,b] in random.sfmt --- basis/math/ranges/ranges.factor | 2 ++ basis/random/sfmt/sfmt.factor | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/basis/math/ranges/ranges.factor b/basis/math/ranges/ranges.factor index 254f1843f4..b095eae5d5 100644 --- a/basis/math/ranges/ranges.factor +++ b/basis/math/ranges/ranges.factor @@ -45,3 +45,5 @@ PRIVATE> : [1,b] ( b -- range ) 1 swap [a,b] ; inline : [0,b) ( b -- range ) 0 swap [a,b) ; inline + +: [1,b) ( b -- range ) 1 swap [a,b) ; inline diff --git a/basis/random/sfmt/sfmt.factor b/basis/random/sfmt/sfmt.factor index 146db91172..04049b542d 100644 --- a/basis/random/sfmt/sfmt.factor +++ b/basis/random/sfmt/sfmt.factor @@ -111,7 +111,7 @@ M:: sfmt generate ( sfmt -- ) : ( sfmt -- uint-array uint-4-array ) state>> - [ n>> 4 * 1 swap [a,b] >uint-array ] [ seed>> ] bi + [ n>> 4 * [1,b] >uint-array ] [ seed>> ] bi [ [ [ -30 shift ] [ ] bi bitxor