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

[factor.git] / extra / classes / tuple / change-tracking / change-tracking-tests.factor

diff --git a/extra/classes/tuple/change-tracking/change-tracking-tests.factor b/extra/classes/tuple/change-tracking/change-tracking-tests.factor
index 633707b23e3f946b0f8c6712cb5b586347056bc1..5aade593f3a87c58805af9eda944220b4b53e611 100644 (file)
--- a/extra/classes/tuple/change-tracking/change-tracking-tests.factor
+++ b/extra/classes/tuple/change-tracking/change-tracking-tests.factor
@@ -6,5 +6,5 @@ TUPLE: resource < change-tracking-tuple
 
 : <resource> ( pathname -- resource ) f swap resource boa ;
 
-[ t ] [ "foo" <resource> "bar" >>pathname changed?>> ] unit-test
-[ f ] [ "foo" <resource> [ 123 >>pathname ] [ drop ] recover changed?>> ] unit-test
+{ t } [ "foo" <resource> "bar" >>pathname changed?>> ] unit-test
+{ f } [ "foo" <resource> [ 123 >>pathname ] [ drop ] recover changed?>> ] unit-test