From a60ba41c58d3fb07db78e80139a90c022ed1a3ae Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Thu, 13 Sep 2018 19:42:54 +0000
Subject: [PATCH] new example code

FossilOrigin-Name: 1dcb91aa4cefd617722d5bfacc85229e7a429d095f622d7b46fc04d3722d08ff
---
 example/LightWeightFlowControl.forth | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 example/LightWeightFlowControl.forth

diff --git a/example/LightWeightFlowControl.forth b/example/LightWeightFlowControl.forth
new file mode 100644
index 0000000..401e815
--- /dev/null
+++ b/example/LightWeightFlowControl.forth
@@ -0,0 +1,8 @@
+~~~
+:0=; n:zero? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
+:<   lt? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
+:>   gt? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
+:<>  -eq? [ as{ 'popopodr i 'drdrre.. i }as ] if ;
+:if; [ as{ 'popopodr i 'drdrre.. i }as ] if ;
+:?;  dup [ as{ 'popopodr i 'drdrre.. i }as ] if drop ;
+~~~