From 1375e32c62ebcca489e143c1b030448a406600a8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 16 Oct 2009 15:19:30 -0500
Subject: [PATCH] make cmwc only 32 bits wide.  oops, this speeds up everything

---
 extra/random/cmwc/cmwc.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/random/cmwc/cmwc.factor b/extra/random/cmwc/cmwc.factor
index b38dd0a28a..6b5b8caee2 100644
--- 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 ;