factor: fix some spacing

[factor.git] / basis / compiler / errors / errors.factor

diff --git a/basis/compiler/errors/errors.factor b/basis/compiler/errors/errors.factor
index a0f5c8f01394f0eee03e83e33118a5e840e5301e..752f8466e09f68941991d7a02a6fe9c982c93d10 100644 (file)
--- a/basis/compiler/errors/errors.factor
+++ b/basis/compiler/errors/errors.factor
@@ -30,12 +30,12 @@ M: linkage-error error-type drop +linkage-error+ ;
     dup asset>> compiler-errors get-global set-at ;
 
 T{ error-type-holder
-   { type +compiler-error+ }
-   { word ":errors" }
-   { plural "compiler errors" }
-   { icon "vocab:ui/tools/error-list/icons/compiler-error.png" }
-   { quot [ compiler-errors get values ] }
-   { forget-quot [ compiler-errors get delete-at ] }
+    { type +compiler-error+ }
+    { word ":errors" }
+    { plural "compiler errors" }
+    { icon "vocab:ui/tools/error-list/icons/compiler-error.png" }
+    { quot [ compiler-errors get values ] }
+    { forget-quot [ compiler-errors get delete-at ] }
 } define-error-type
 
 : <compiler-error> ( error word -- compiler-error )
@@ -48,13 +48,13 @@ T{ error-type-holder
     '[ _ boa ] dip <linkage-error> dup asset>> linkage-errors get set-at ; inline
 
 T{ error-type-holder
-   { type +linkage-error+ }
-   { word ":linkage" }
-   { plural "linkage errors" }
-   { icon "vocab:ui/tools/error-list/icons/linkage-error.png" }
-   { quot [ linkage-errors get values ] }
-   { forget-quot [ linkage-errors get delete-at ] }
-   { fatal? f }
+    { type +linkage-error+ }
+    { word ":linkage" }
+    { plural "linkage errors" }
+    { icon "vocab:ui/tools/error-list/icons/linkage-error.png" }
+    { quot [ linkage-errors get values ] }
+    { forget-quot [ linkage-errors get delete-at ] }
+    { fatal? f }
 } define-error-type
 
 ERROR: no-such-library name message ;