Fix white spaces.

[pforth] / fth / t_case.fth

diff --git a/fth/t_case.fth b/fth/t_case.fth
index e1997fb..664ea63 100644 (file)
--- a/fth/t_case.fth
+++ b/fth/t_case.fth
@@ -1,16 +1,16 @@
-\ test CASE\r
-anew test-case\r
-: TCASE  ( N -- )\r
-       CASE\r
-       0 OF ." is zero" ENDOF\r
-       1 OF\r
-               2 choose\r
-               CASE\r
-               0 OF ." chose zero" ENDOF\r
-               1 OF ." chose one" ENDOF\r
-               [ .s cr ." of-depth = " of-depth @ . cr ]\r
-               ENDCASE\r
-       ENDOF\r
-       [ .s cr ." of-depth = " of-depth @ . cr ]\r
-       ENDCASE\r
-;\r
+\ test CASE
+anew test-case
+: TCASE  ( N -- )
+    CASE
+    0 OF ." is zero" ENDOF
+    1 OF
+        2 choose
+        CASE
+        0 OF ." chose zero" ENDOF
+        1 OF ." chose one" ENDOF
+        [ .s cr ." of-depth = " of-depth @ . cr ]
+        ENDCASE
+    ENDOF
+    [ .s cr ." of-depth = " of-depth @ . cr ]
+    ENDCASE
+;