1 \ @(#) t_locals.fth 97/01/28 1.1
2 \ Test PForth LOCAL variables.
4 \ Copyright 1996 3DO, Phil Burk
6 include? }T{ t_tools.fth
16 \ test value and locals
17 T{ 333 value my-value my-value }T{ 333 }T
18 T{ 1000 -> my-value my-value }T{ 1000 }T
19 T{ 35 +-> my-value my-value }T{ 1035 }T
20 : test.value ( -- ok )
26 T{ test.value }T{ TRUE }T
28 \ test locals in a word
29 : test.locs { aa bb | cc -- ok }
37 T{ 200 59 test.locs }T{ TRUE }T