From b1eb5d0dd99ad0449b0808cdc1e6857404e49186 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Fri, 28 Jan 2022 14:47:37 +0200
Subject: Implement definitions

---
 samples/variables.sample | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'samples')

diff --git a/samples/variables.sample b/samples/variables.sample
index 5ea1105..14f81af 100644
--- a/samples/variables.sample
+++ b/samples/variables.sample
@@ -6,3 +6,8 @@ $foo ?
 
 -- print 1 + value at foo
 1 $foo @ + .
+
+-- define x * 2 = x + x
+define *2       dup + ;
+
+666 *2 .
\ No newline at end of file
-- 
cgit v1.3