specialized-arrays: performed some cleanup.

[factor.git] / extra / random / cmwc / cmwc-tests.factor

diff --git a/extra/random/cmwc/cmwc-tests.factor b/extra/random/cmwc/cmwc-tests.factor
index d5e1fe685842016e73e9943c3d11559506191a9a..6ad8b57fb82b22affcac5642827cda2902bf2ce5 100644 (file)
--- a/extra/random/cmwc/cmwc-tests.factor
+++ b/extra/random/cmwc/cmwc-tests.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien.c-types arrays kernel random random.cmwc sequences
-specialized-arrays tools.test ;
+USING: alien.c-types alien.data arrays kernel random random.cmwc
+sequences specialized-arrays tools.test ;
 SPECIALIZED-ARRAY: uint
 IN: random.cmwc.tests
 
@@ -26,18 +26,18 @@ IN: random.cmwc.tests
 }
 ] [
     cmwc-4096
-    4096 iota >uint-array 362436 <cmwc-seed> seed-random [
+    4096 iota uint >c-array 362436 <cmwc-seed> seed-random [
         10 [ random-32 ] replicate
     ] with-random
 ] unit-test
 
 [ t ] [
     cmwc-4096 [
-        4096 iota >uint-array 362436 <cmwc-seed> seed-random [
+        4096 iota uint >c-array 362436 <cmwc-seed> seed-random [
             10 [ random-32 ] replicate
         ] with-random
     ] [
-        4096 iota >uint-array 362436 <cmwc-seed> seed-random [
+        4096 iota uint >c-array 362436 <cmwc-seed> seed-random [
             10 [ random-32 ] replicate
         ] with-random
     ] bi =