\ @(#) t_locals.fth 97/01/28 1.1
\ Test PForth LOCAL variables.
\ Copyright 1996 3DO, Phil Burk
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{ test.value }T{ TRUE }T
: test.locs { aa bb | cc -- ok }
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
width \ horizontal dimension
height \ vertical dimension
-- area , calculate area of a rectangle }
T{ 5 20 calc.area }T{ 100 }T