-\ 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
+;