From 58b2c2c4a8e6c5bc1782ac748ef207264418ac8d Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Fri, 28 Jan 2022 19:25:47 +0200
Subject: Add conditionals, rework interpret order

---
 samples/area.sample | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 samples/area.sample

(limited to 'samples/area.sample')

diff --git a/samples/area.sample b/samples/area.sample
new file mode 100644
index 0000000..57bbfbb
--- /dev/null
+++ b/samples/area.sample
@@ -0,0 +1,7 @@
+define PI       3.141593 ;
+
+define area     dup * PI * ;
+define circumf  PI * 2.0 * ;
+
+10.0 area round .
+10.0 circumf round .
-- 
cgit v1.3