remove most of the overhead in cmwc, it's fast now

2009-10-16 16:08:59 -05:00 · 2009-10-16 16:08:59 -05:00 · 65a2419134
parent 741f19ab2f
commit 65a2419134
1 changed files with 2 additions and 2 deletions
--- a/extra/random/cmwc/cmwc.factor
+++ b/extra/random/cmwc/cmwc.factor
@ -41,9 +41,9 @@ M:: cmwc random-32* ( cmwc -- n )
    [ [ i>> ] [ Q>> ] bi nth-unsafe * ]
    [ c>> + ] tri

-    [ -32 shift cmwc (>>c) ]
-
+    [ >fixnum -32 shift cmwc (>>c) ]
    [ cmwc [ b>> bitand ] [ c>> + ] bi 32 bits ] bi
+
    dup cmwc r>> > [
        cmwc [ 1 + ] change-c drop
        cmwc b>> - 32 bits