From: Jonas Hvid <mail@johv.dk>
Date: Tue, 10 Dec 2019 15:28:35 +0000 (+0100)
Subject: Define ELSE
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=f0c2dc0d5c5862f15704fb88d7bbb262391b4b6c;p=rrq%2Fjonasforth.git

Define ELSE
---

diff --git a/sys.f b/sys.f
index df2d231..cab2ab7 100644
--- a/sys.f
+++ b/sys.f
@@ -26,3 +26,10 @@ EXIT [
   SWAP !
 ;
 
+: ELSE IMMEDIATE
+  ' BRANCH ,
+  HERE @
+  0 ,
+  SWAP DUP HERE @ SWAP - SWAP !
+;
+