Cleaner version of randomize.

diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor
index a7202c9cae7ad8e05b28028e4bd1e4662e8320da..85cc82eb3962329a0d5479d4f6e4d8d0124730e0 100755 (executable)
--- 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) <reversed> [ dup random pick exchange ] each ;
+    dup length 1 (a,b] [ dup random pick exchange ] each ;