From d2c46077f56c3b0a8dd7c34924c3ccb80fed892b Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Sat, 29 Jan 2022 17:58:41 +0200 Subject: Add debug flag, phrase handling words --- samples/eval.sample | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 samples/eval.sample (limited to 'samples/eval.sample') diff --git a/samples/eval.sample b/samples/eval.sample new file mode 100644 index 0000000..927621b --- /dev/null +++ b/samples/eval.sample @@ -0,0 +1,14 @@ +define update + $update_var ! + $update_phrase ! + $update_var @ @ $update_phrase @ unphrase + $update_var @ ! + $update_var forget $update_phrase forget + ; + +10 $num ! +[ 1 + ] $num update +$num ? + +[ 5 / ] $num update +$num ? \ No newline at end of file -- cgit v1.3