X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/a1f4e52df60d8f26327ed57f5a9e7b70d0a04273..8e9db35f299d8f606ba003d3cd8fa9e2c868c880:/fth/t_case.fth

diff --git a/fth/t_case.fth b/fth/t_case.fth
index e1997fb..664ea63 100644
--- a/fth/t_case.fth
+++ b/fth/t_case.fth
@@ -1,16 +1,16 @@
-\ 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
-;
+\ 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
+;