wrap -> mod again

2008-09-09 15:46:14 -05:00 · 2008-09-09 15:46:14 -05:00 · d72114fcce
parent 7764242f66
commit d72114fcce
1 changed files with 1 additions and 1 deletions
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@ -39,7 +39,7 @@ M: f random-32* ( obj -- * ) no-random-number-generator ;
            length [
                log2 8 + 8 /i
                random-bytes byte-array>bignum
-            ] keep wrap
+            ] keep mod
        ] keep nth
    ] if-empty ;