Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / basis / random / random.factor

diff --git a/basis/random/random.factor b/basis/random/random.factor
index 1962857d573181a1da1b5a2a3291d2825a8ae8cb..4c94e87928cebe5acaa9efe2e959207c1f42d45f 100755 (executable)
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -39,7 +39,7 @@ M: f random-32* ( obj -- * ) no-random-number-generator ;
 <PRIVATE
 
 : random-integer ( n -- n' )
-    dup log2 7 + 8 /i 1+
+    dup log2 7 + 8 /i 1 +
     [ random-bytes >byte-array byte-array>bignum ]
     [ 3 shift 2^ ] bi / * >integer ;
 
@@ -57,7 +57,7 @@ PRIVATE>
 
 : randomize ( seq -- seq )
     dup length [ dup 1 > ]
-    [ [ iota random ] [ 1- ] bi [ pick exchange ] keep ]
+    [ [ iota random ] [ 1 - ] bi [ pick exchange ] keep ]
     while drop ;
 
 : delete-random ( seq -- elt )