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

[factor.git] / basis / tools / trace / trace-tests.factor

diff --git a/basis/tools/trace/trace-tests.factor b/basis/tools/trace/trace-tests.factor
index 06511c7adaeb6af188cac6bcf5394ad2554eaaf6..335f37331ad3d990b572098c106d495772f71f7f 100644 (file)
--- a/basis/tools/trace/trace-tests.factor
+++ b/basis/tools/trace/trace-tests.factor
@@ -2,7 +2,7 @@ IN: tools.trace.tests
 USING: tools.trace tools.test tools.continuations kernel math combinators
 sequences ;
 
-[ { 3 2 1 } ] [ { 1 2 3 } [ reverse ] trace ] unit-test
+{ { 3 2 1 } } [ { 1 2 3 } [ reverse ] trace ] unit-test
 
 GENERIC: method-breakpoint-test ( x -- y )
 
@@ -12,7 +12,7 @@ M: method-breakpoint-tuple method-breakpoint-test break drop 1 2 + ;
 
 \ method-breakpoint-test don't-step-into
 
-[ 3 ]
+{ 3 }
 [ [ T{ method-breakpoint-tuple } method-breakpoint-test ] trace ] unit-test
 
 : case-breakpoint-test ( -- x )
@@ -20,11 +20,11 @@ M: method-breakpoint-tuple method-breakpoint-test break drop 1 2 + ;
 
 \ case-breakpoint-test don't-step-into
 
-[ 6 ] [ [ case-breakpoint-test ] trace ] unit-test
+{ 6 } [ [ case-breakpoint-test ] trace ] unit-test
 
 : call(-breakpoint-test ( -- x )
     [ break 1 ] call( -- x ) 2 + ;
 
 \ call(-breakpoint-test don't-step-into
 
-[ 3 ] [ [ call(-breakpoint-test ] trace ] unit-test
+{ 3 } [ [ call(-breakpoint-test ] trace ] unit-test