From 86339deb2277020a4a98a95fa0ba2f2f141d00d6 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 25 Sep 2008 16:17:37 -0500 Subject: [PATCH] better randomize --- extra/sequences/lib/lib.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor index a7202c9cae..85cc82eb39 100755 --- a/extra/sequences/lib/lib.factor +++ b/extra/sequences/lib/lib.factor @@ -166,5 +166,5 @@ PRIVATE> USE: math.ranges USE: random : randomize ( seq -- seq' ) - dup length 1 swap [a,b) [ dup random pick exchange ] each ; + dup length 1 (a,b] [ dup random pick exchange ] each ;