make cmwc only 32 bits wide. oops, this speeds up everything

diff --git a/extra/random/cmwc/cmwc.factor b/extra/random/cmwc/cmwc.factor
index b38dd0a28a57ecc7c0f1456120e734b10374ea02..6b5b8caee26dd34ea886d68a32c187cdfa87505a 100644 (file)
--- a/extra/random/cmwc/cmwc.factor
+++ b/extra/random/cmwc/cmwc.factor
@@ -43,10 +43,10 @@ M:: cmwc random-32* ( cmwc -- n )
 
     t -32 shift cmwc (>>c)
 
-    t cmwc [ b>> bitand ] [ c>> + ] bi 64 bits t!
+    t cmwc [ b>> bitand ] [ c>> + ] bi 32 bits t!
     t cmwc r>> > [
         cmwc [ 1 + ] change-c drop
-        t cmwc b>> - 64 bits t!
+        t cmwc b>> - 32 bits t!
     ] when
 
     cmwc [ r>> t - 32 bits dup ] [ i>> ] [ Q>> ] tri set-nth ;