Fix white spaces.

[pforth] / fth / t_locals.fth

diff --git a/fth/t_locals.fth b/fth/t_locals.fth
index aa6e03d..5cec9e0 100644 (file)
--- a/fth/t_locals.fth
+++ b/fth/t_locals.fth
@@ -1,52 +1,52 @@
-\ @(#) t_locals.fth 97/01/28 1.1\r
-\ Test PForth LOCAL variables.\r
-\\r
-\ Copyright 1996 3DO, Phil Burk\r
-\r
-include? }T{  t_tools.fth\r
-\r
-anew task-t_locals.fth\r
-decimal\r
-\r
-test{\r
-\r
-\ test value and locals\r
-T{ 333 value  my-value   my-value }T{  333 }T\r
-T{ 1000 -> my-value   my-value }T{ 1000 }T\r
-T{ 35 +-> my-value   my-value }T{ 1035 }T\r
-: test.value  ( -- ok )\r
-       100 -> my-value\r
-       my-value 100 =\r
-       47 +-> my-value\r
-       my-value 147 = AND\r
-;\r
-T{ test.value }T{ TRUE }T\r
-\r
-\ test locals in a word\r
-: test.locs  { aa bb | cc -- ok }\r
-       cc 0=\r
-       aa bb + -> cc\r
-       aa bb +   cc = AND\r
-       aa -> cc\r
-       bb +->  cc\r
-       aa bb +   cc = AND\r
-;\r
-\r
-T{ 200 59 test.locs }T{  TRUE }T\r
-\r
-.( Test warning when no locals defined.) cr\r
-: loc.nonames { -- } 1234 ;\r
-T{ loc.nonames }T{ 1234 }T\r
-\r
-\ try to put EOLs and comments in variable list\r
-: calc.area {\r
-       width    \ horizontal dimension\r
-       height   \ vertical dimension\r
-       -- area , calculate area of a rectangle }\r
-       width height *\r
-;\r
-\r
-T{ 5 20 calc.area }T{ 100 }T\r
-\r
-}test\r
-\r
+\ @(#) t_locals.fth 97/01/28 1.1
+\ Test PForth LOCAL variables.
+\
+\ Copyright 1996 3DO, Phil Burk
+
+include? }T{  t_tools.fth
+
+anew task-t_locals.fth
+decimal
+
+test{
+
+\ test value and locals
+T{ 333 value  my-value   my-value }T{  333 }T
+T{ 1000 -> my-value   my-value }T{ 1000 }T
+T{ 35 +-> my-value   my-value }T{ 1035 }T
+: test.value  ( -- ok )
+    100 -> my-value
+    my-value 100 =
+    47 +-> my-value
+    my-value 147 = AND
+;
+T{ test.value }T{ TRUE }T
+
+\ test locals in a word
+: test.locs  { aa bb | cc -- ok }
+    cc 0=
+    aa bb + -> cc
+    aa bb +   cc = AND
+    aa -> cc
+    bb +->  cc
+    aa bb +   cc = AND
+;
+
+T{ 200 59 test.locs }T{  TRUE }T
+
+.( Test warning when no locals defined.) cr
+: loc.nonames { -- } 1234 ;
+T{ loc.nonames }T{ 1234 }T
+
+\ try to put EOLs and comments in variable list
+: calc.area {
+    width    \ horizontal dimension
+    height   \ vertical dimension
+    -- area , calculate area of a rectangle }
+    width height *
+;
+
+T{ 5 20 calc.area }T{ 100 }T
+
+}test
+