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

[factor.git] / extra / sequences / inserters / inserters-tests.factor

diff --git a/extra/sequences/inserters/inserters-tests.factor b/extra/sequences/inserters/inserters-tests.factor
index a49f3cce42045628868e169f5753e88b3fd833d5..3bc38ed7a0019b9985ab9da3227a369729b01236 100644 (file)
--- a/extra/sequences/inserters/inserters-tests.factor
+++ b/extra/sequences/inserters/inserters-tests.factor
@@ -3,42 +3,42 @@ USING: assocs kernel sequences sequences.inserters tools.test
 unicode.case ;
 IN: sequences.inserters.tests
 
-[ V{ 1 2 "Three" "Four" "Five" } ] [
+{ V{ 1 2 "Three" "Four" "Five" } } [
     { "three" "four" "five" }
     [ >title ] V{ 1 2 } clone <appender> map-as
 ] unit-test
 
-[ t ] [
+{ t } [
     { "three" "four" "five" }
     [ >title ] V{ 1 2 } clone [ <appender> map-as ] keep eq?
 ] unit-test
 
-[ V{ 1 2 "Three" "Four" "Five" } ] [
+{ V{ 1 2 "Three" "Four" "Five" } } [
     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
     [ append ] V{ 1 2 } clone <appender> assoc>map
 ] unit-test
 
-[ t ] [
+{ t } [
     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
     [ append ] V{ 1 2 } clone [ <appender> assoc>map ] keep eq?
 ] unit-test
 
-[ V{ "Three" "Four" "Five" } ] [
+{ V{ "Three" "Four" "Five" } } [
     { "three" "four" "five" }
     [ >title ] V{ 1 2 } clone <replacer> map-as
 ] unit-test
 
-[ t ] [
+{ t } [
     { "three" "four" "five" }
     [ >title ] V{ 1 2 } clone [ <replacer> map-as ] keep eq?
 ] unit-test
 
-[ V{ "Three" "Four" "Five" } ] [
+{ V{ "Three" "Four" "Five" } } [
     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
     [ append ] V{ 1 2 } clone <replacer> assoc>map
 ] unit-test
 
-[ t ] [
+{ t } [
     { { "Th" "ree" } { "Fo" "ur" } { "Fi" "ve" } }
     [ append ] V{ 1 2 } clone [ <replacer> assoc>map ] keep eq?
 ] unit-test