factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / basis / random / sfmt / sfmt-tests.factor

diff --git a/basis/random/sfmt/sfmt-tests.factor b/basis/random/sfmt/sfmt-tests.factor
index f7b75c3f135647219e77ced99f7d4967d8b2c740..4268d5f00172f6995c896299560b3c9799a08a5b 100644 (file)
--- a/basis/random/sfmt/sfmt-tests.factor
+++ b/basis/random/sfmt/sfmt-tests.factor
@@ -5,27 +5,27 @@ sequences tools.test ;
 IN: random.sfmt.tests
 
 ! Period certified by virtue of seed
-[ ] [ 5 <sfmt-19937> drop ] unit-test
+{ } [ 5 <sfmt-19937> drop ] unit-test
 
-[ 1331696015 ]
+{ 1331696015 }
 [ 5 <sfmt-19937> dup generate dup generate uint-array>> first ] unit-test
 
-[ 1432875926 ]
+{ 1432875926 }
 [ 5 <sfmt-19937> random-32* ] unit-test
 
 
 ! Period certified by flipping a bit
-[ ] [ 7 <sfmt-19937> drop ] unit-test
+{ } [ 7 <sfmt-19937> drop ] unit-test
 
-[ 1674111379 ]
+{ 1674111379 }
 [ 7 <sfmt-19937> dup generate dup generate uint-array>> first ] unit-test
 
-[ 489955657 ]
+{ 489955657 }
 [ 7 <sfmt-19937> random-32* ] unit-test
 
 
 ! Test re-seeding SFMT
-[ t ]
+{ t }
 [
     100 <sfmt-19937>
     [ random-32* ]