random.mersenne-twister: fix name of stack effect.

2014-02-09 11:00:57 -08:00 · 2014-02-09 11:00:57 -08:00 · 9aa160ad91
parent c2c89152e3
commit 9aa160ad91
1 changed files with 1 additions and 1 deletions
--- a/basis/random/mersenne-twister/mersenne-twister.factor
+++ b/basis/random/mersenne-twister/mersenne-twister.factor
@ -23,7 +23,7 @@ CONSTANT: a uint-array{ 0 0x9908b0df }
        [ 2/ ] [ 1 bitand a nth ] bi bitxor bitxor
    ] 2keep set-nth-unsafe ; inline

-: mt-steps ( k k+1 k+m n seq -- )
+: mt-steps ( k+m k+1 k n seq -- )
    [ mt-step ] curry [ 3keep [ 1 + ] tri@ ] curry times 3drop ; inline

 : mt-generate ( mt -- )