From f849a7b85e39d62bad4214015a8d87e3b2ec49d3 Mon Sep 17 00:00:00 2001 From: Phil Burk Date: Sat, 12 Sep 2020 17:47:13 -0700 Subject: [PATCH 1/1] test the compile time behavior of a VALUE From 2012 test suite. --- fth/t_locals.fth | 6 ++++++ 1 file changed, 6 insertions(+) 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= -- 2.20.1