X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=fth%2Ft_locals.fth;h=0384ee2325f5cb8c7bec8b17462841538fbc9d7e;hb=ff136ea5caf229ce3135cc6245051f40a9b443f3;hp=5cec9e042f280a9883a3ab56128bd5b5a2bec6c8;hpb=8e9db35f299d8f606ba003d3cd8fa9e2c868c880;p=debian%2Fpforth

diff --git a/fth/t_locals.fth b/fth/t_locals.fth
index 5cec9e0..0384ee2 100644
--- a/fth/t_locals.fth
+++ b/fth/t_locals.fth
@@ -14,6 +14,7 @@ test{
 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 =
@@ -22,6 +23,11 @@ T{ 35 +-> my-value   my-value }T{ 1035 }T
 ;
 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=