From 8ad1bab8ada2872c9918908836398b1d863ef7d4 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 7 Oct 2009 20:25:00 -0500
Subject: [PATCH] fix seed-random for cmwc

---
 extra/random/cmwc/cmwc-tests.factor | 4 ++--
 extra/random/cmwc/cmwc.factor       | 5 ++++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/extra/random/cmwc/cmwc-tests.factor b/extra/random/cmwc/cmwc-tests.factor
index 2a908c0bd3..6e3f4ac178 100644
--- a/extra/random/cmwc/cmwc-tests.factor
+++ b/extra/random/cmwc/cmwc-tests.factor
@@ -24,7 +24,7 @@ IN: random.cmwc.tests
 }
 ] [
     cmwc-4096
-    4096 iota >array seed-random [
+    4096 iota >array 362436 <cmwc-seed> seed-random [
         10 [ random-32 ] replicate
     ] with-random
 ] unit-test
@@ -35,7 +35,7 @@ IN: random.cmwc.tests
             10 [ random-32 ] replicate
         ] with-random
     ] [
-        4096 iota >array 362436 <cmwc-seed seed-random [
+        4096 iota >array 362436 <cmwc-seed> seed-random [
             10 [ random-32 ] replicate
         ] with-random
     ] bi =
diff --git a/extra/random/cmwc/cmwc.factor b/extra/random/cmwc/cmwc.factor
index 104046821f..00258257be 100644
--- a/extra/random/cmwc/cmwc.factor
+++ b/extra/random/cmwc/cmwc.factor
@@ -48,4 +48,7 @@ M:: cmwc random-32* ( cmwc -- n )
 : cmwc-4096 ( -- cmwc )
     4096
     [ 18782 4294967295 362436 <cmwc> ]
-    [ '[ [ random-32 ] replicate ] with-system-random seed-random ] bi ;
+    [
+        '[ [ random-32 ] replicate ] with-system-random
+        362436 <cmwc-seed> seed-random
+    ] bi ;