fix cmwc on 32 bit factor

2009-10-17 00:09:01 -05:00 · 2009-10-17 00:09:01 -05:00 · 26d8690ec2
parent fae924ece3
commit 26d8690ec2
1 changed files with 5 additions and 5 deletions
--- a/extra/random/cmwc/cmwc.factor
+++ b/extra/random/cmwc/cmwc.factor
@ -9,11 +9,11 @@ IN: random.cmwc

 TUPLE: cmwc
    { Q uint-array }
-    { a fixnum }
-    { b fixnum }
-    { c fixnum }
-    { i fixnum }
-    { r fixnum }
+    { a integer }
+    { b integer }
+    { c integer }
+    { i integer }
+    { r integer }
    { mod fixnum } ;

 TUPLE: cmwc-seed { Q uint-array read-only } { c read-only } ;