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

[factor.git] / extra / memory / pools / pools-tests.factor

diff --git a/extra/memory/pools/pools-tests.factor b/extra/memory/pools/pools-tests.factor
index 29f99a5a11472f807c3ad0638a16fb9da86e9fe9..d1980f706f282c8a8285287fa73c75cba5d7d357 100644 (file)
--- a/extra/memory/pools/pools-tests.factor
+++ b/extra/memory/pools/pools-tests.factor
@@ -4,14 +4,14 @@ IN: memory.pools.tests
 
 TUPLE: foo x ;
 
-[ 1 ] [
+{ 1 } [
     foo 2 foo <pool> set-class-pool
 
     foo new-from-pool drop
     foo class-pool pool-size
 ] unit-test
 
-[ T{ foo } T{ foo } f ] [
+{ T{ foo } T{ foo } f } [
     foo 2 foo <pool> set-class-pool
 
     foo new-from-pool
@@ -19,7 +19,7 @@ TUPLE: foo x ;
     foo new-from-pool
 ] unit-test
 
-[ f ] [
+{ f } [
     foo 2 foo <pool> set-class-pool
 
     foo new-from-pool