factor: fix some spacing

[factor.git] / extra / tools / wc / wc.factor

diff --git a/extra/tools/wc/wc.factor b/extra/tools/wc/wc.factor
index 52f6403fa1110099c63a2cc9ba42f8e319fc06aa..2eee8a35cd33022f5d89e721cf3683d7d8131bf3 100644 (file)
--- a/extra/tools/wc/wc.factor
+++ b/extra/tools/wc/wc.factor
@@ -13,17 +13,17 @@ IN: tools.wc
 <PRIVATE
 
 : aligned-slices ( seq -- head tail )
-   dup length 0xf unmask cut-slice ; inline
+    dup length 0xf unmask cut-slice ; inline
 
 : count-characters ( -- n )
     0 [ length + ] each-block-slice ; inline
 
 : count-lines ( -- n )
     0 [
-       aligned-slices [
-           uchar-16 cast-array swap
-           [ CHAR: \n uchar-16-with v= vcount + >fixnum ] reduce
-       ] [ [ CHAR: \n = ] count + >fixnum ] bi*
+        aligned-slices [
+            uchar-16 cast-array swap
+            [ CHAR: \n uchar-16-with v= vcount + >fixnum ] reduce
+        ] [ [ CHAR: \n = ] count + >fixnum ] bi*
     ] each-block-slice ; inline
 
 : wc-stdin ( -- n )