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

[factor.git] / extra / machine-learning / rebalancing / rebalancing-tests.factor

diff --git a/extra/machine-learning/rebalancing/rebalancing-tests.factor b/extra/machine-learning/rebalancing/rebalancing-tests.factor
index bc02dcec87b7a5bb4ce7bbab56283ee442316605..89a796c5835e516f3ad99ee2026da6c6b32e5a93 100644 (file)
--- a/extra/machine-learning/rebalancing/rebalancing-tests.factor
+++ b/extra/machine-learning/rebalancing/rebalancing-tests.factor
@@ -5,14 +5,14 @@ math.statistics math.text.english sequences tools.test
 math.vectors ;
 IN: machine-learning.rebalancing.tests
 
-[ t ] [
+{ t } [
     { 1 1 1 2 } [ [ number>text ] map ] [ ] bi
     100,000 balance-labels nip
     histogram values first2 - abs 3,000 <
 ] unit-test
 
 
-[ t ] [
+{ t } [
     { 1 1 1 2 } [ [ number>text ] map ] [ ] bi
     { 1/10 9/10 } 100,000 skew-labels nip
     histogram values { 10,000 90,000 } -.05 v~