X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..f849a7b85e39d62bad4214015a8d87e3b2ec49d3:/fth/t_locals.fth

diff --git a/fth/t_locals.fth b/fth/t_locals.fth
index aa6e03d..0384ee2 100644
--- a/fth/t_locals.fth
+++ b/fth/t_locals.fth
@@ -1,52 +1,58 @@
-\ @(#) 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
-
+\ @(#) 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
+T{ 987 to my-value   my-value }T{ 987 }T
+: test.value  ( -- ok )
+    100 -> my-value
+    my-value 100 =
+    47 +-> my-value
+    my-value 147 = AND
+;
+T{ test.value }T{ TRUE }T
+
+\ test compile time behavior of a VALUE
+567 value VAL3 immediate
+: VD3 val3 literal ;
+T{ vd3 }T{ 567 }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
+