factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!

[factor.git] / basis / compiler / cfg / linear-scan / resolve / resolve-tests.factor

diff --git a/basis/compiler/cfg/linear-scan/resolve/resolve-tests.factor b/basis/compiler/cfg/linear-scan/resolve/resolve-tests.factor
index 22f9cfbeebd2ce60d8a215673f6fe878bea11d06..c72e286f0d5557e3ee60232146f29c2c78ca94db 100644 (file)
--- a/basis/compiler/cfg/linear-scan/resolve/resolve-tests.factor
+++ b/basis/compiler/cfg/linear-scan/resolve/resolve-tests.factor
@@ -5,24 +5,24 @@ compiler.cfg.instructions cpu.architecture make sequences
 compiler.cfg.linear-scan.allocation.state ;
 IN: compiler.cfg.linear-scan.resolve.tests
 
-[
+{
     {
         {
             T{ location f T{ spill-slot f 0 } int-rep int-regs }
             T{ location f 1 int-rep int-regs }
         }
     }
-] [
+} [
     [
         0 <spill-slot> 1 int-rep add-mapping
     ] { } make
 ] unit-test
 
-[
+{
     {
         T{ ##reload { dst 1 } { rep int-rep } { src T{ spill-slot f 0 } } }
     }
-] [
+} [
     [
         T{ location f T{ spill-slot f 0 } int-rep int-regs }
         T{ location f 1 int-rep int-regs }
@@ -30,11 +30,11 @@ IN: compiler.cfg.linear-scan.resolve.tests
     ] { } make
 ] unit-test
 
-[
+{
     {
         T{ ##spill { src 1 } { rep int-rep } { dst T{ spill-slot f 0 } } }
     }
-] [
+} [
     [
         T{ location f 1 int-rep int-regs }
         T{ location f T{ spill-slot f 0 } int-rep int-regs }
@@ -42,11 +42,11 @@ IN: compiler.cfg.linear-scan.resolve.tests
     ] { } make
 ] unit-test
 
-[
+{
     {
         T{ ##copy { src 1 } { dst 2 } { rep int-rep } }
     }
-] [
+} [
     [
         T{ location f 1 int-rep int-regs }
         T{ location f 2 int-rep int-regs }
@@ -54,23 +54,23 @@ IN: compiler.cfg.linear-scan.resolve.tests
     ] { } make
 ] unit-test
 
-[
+{
     {
         T{ ##copy { src 1 } { dst 2 } { rep int-rep } }
         T{ ##branch }
     }
-] [
+} [
     { { T{ location f 1 int-rep int-regs } T{ location f 2 int-rep int-regs } } }
     mapping-instructions
 ] unit-test
 
-[
+{
     {
         T{ ##spill { src 0 } { rep int-rep } { dst T{ spill-slot f 0 } } }
         T{ ##reload { dst 0 } { rep tagged-rep } { src T{ spill-slot f 1 } } }
         T{ ##branch }
     }
-] [
+} [
     {
         { T{ location f T{ spill-slot f 1 } tagged-rep int-regs } T{ location f 0 tagged-rep int-regs } }
         { T{ location f 0 int-rep int-regs } T{ location f T{ spill-slot f 0 } int-rep int-regs } }
@@ -78,13 +78,13 @@ IN: compiler.cfg.linear-scan.resolve.tests
     mapping-instructions
 ] unit-test
 
-[
+{
     {
         T{ ##spill { src 0 } { rep int-rep } { dst T{ spill-slot f 1 } } }
         T{ ##reload { dst 0 } { rep tagged-rep } { src T{ spill-slot f 0 } } }
         T{ ##branch }
     }
-] [
+} [
     {
         { T{ location f T{ spill-slot f 0 } tagged-rep int-regs } T{ location f 0 tagged-rep int-regs } }
         { T{ location f 0 int-rep int-regs } T{ location f T{ spill-slot f 1 } int-rep int-regs } }
@@ -92,13 +92,13 @@ IN: compiler.cfg.linear-scan.resolve.tests
     mapping-instructions
 ] unit-test
 
-[
+{
     {
         T{ ##spill { src 0 } { rep int-rep } { dst T{ spill-slot f 1 } } }
         T{ ##reload { dst 0 } { rep tagged-rep } { src T{ spill-slot f 0 } } }
         T{ ##branch }
     }
-] [
+} [
     {
         { T{ location f 0 int-rep int-regs } T{ location f T{ spill-slot f 1 } int-rep int-regs } }
         { T{ location f T{ spill-slot f 0 } tagged-rep int-regs } T{ location f 0 tagged-rep int-regs } }
@@ -109,7 +109,7 @@ IN: compiler.cfg.linear-scan.resolve.tests
 cfg new 8 >>spill-area-size cfg set
 init-resolve
 
-[ t ] [
+{ t } [
     {
         { T{ location f 0 int-rep int-regs } T{ location f 1 int-rep int-regs } }
         { T{ location f 1 int-rep int-regs } T{ location f 0 int-rep int-regs } }