factor: fix some spacing

[factor.git] / extra / smalltalk / compiler / compiler-tests.factor

diff --git a/extra/smalltalk/compiler/compiler-tests.factor b/extra/smalltalk/compiler/compiler-tests.factor
index 60b24c56446bd41e12943b7790c4e1ce479a2f74..8868fdb3fa8acdc95dbfc01e16057fbf363e4e99 100644 (file)
--- a/extra/smalltalk/compiler/compiler-tests.factor
+++ b/extra/smalltalk/compiler/compiler-tests.factor
@@ -14,74 +14,72 @@ IN: smalltalk.compiler.tests
 
 { 2 1 } [
     T{ ast-block f
-       { "a" "b" }
-       {
-           T{ ast-message-send f
-              T{ ast-name f "a" }
-              "+"
-              { T{ ast-name f "b" } }
-           }
-       }
+        { "a" "b" }
+        {
+            T{ ast-message-send f
+                T{ ast-name f "a" }
+                "+"
+                { T{ ast-name f "b" } }
+            }
+        }
     } test-inference
 ] unit-test
 
 { 3 1 } [
     T{ ast-block f
-       { "a" "b" "c" }
-       {
-           T{ ast-assignment f
-              T{ ast-name f "a" }
-              T{ ast-message-send f
-                 T{ ast-name f "c" }
-                 "+"
-                 { T{ ast-name f "b" } }
-              }
-           }
-           T{ ast-message-send f
-              T{ ast-name f "b" }
-              "blah:"
-              { 123.456 }
-           }
-           T{ ast-return f T{ ast-name f "c" } }
-       }
+        { "a" "b" "c" }
+        {
+            T{ ast-assignment f
+                T{ ast-name f "a" }
+                T{ ast-message-send f
+                    T{ ast-name f "c" }
+                    "+"
+                    { T{ ast-name f "b" } }
+                }
+            }
+            T{ ast-message-send f
+                T{ ast-name f "b" }
+                "blah:"
+                { 123.456 }
+            }
+            T{ ast-return f T{ ast-name f "c" } }
+        }
     } test-inference
 ] unit-test
 
 { 0 1 } [
     T{ ast-block f
-       { }
-       { }
-       {
-           T{ ast-message-send
-              { receiver 1 }
-              { selector "to:do:" }
-              { arguments
-                {
-                    10
-                    T{ ast-block
-                       { arguments { "i" } }
-                       { body
-                         {
-                             T{ ast-message-send
-                                { receiver
-                                  T{ ast-name { name "i" } }
+        { }
+        { }
+        {
+            T{ ast-message-send
+                { receiver 1 }
+                { selector "to:do:" }
+                { arguments
+                    {
+                        10
+                        T{ ast-block
+                            { arguments { "i" } }
+                            { body
+                                {
+                                    T{ ast-message-send
+                                        { receiver T{ ast-name { name "i" } } }
+                                        { selector "print" }
+                                    }
                                 }
-                                { selector "print" }
-                             }
-                         }
-                       }
+                            }
+                        }
                     }
                 }
-              }
-           }
+            }
        }
     } test-inference
 ] unit-test
 
 { "a" } [
     T{ ast-block f
-       { }
-       { }
-       { { T{ ast-block { body { "a" } } } } }
+        { }
+        { }
+        { { T{ ast-block { body { "a" } } } } }
     } test-compilation call first call
 ] unit-test