projects / rrq / jonasforth.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 03fd797)
Define ELSE
authorJonas Hvid <mail@johv.dk>
Tue, 10 Dec 2019 15:28:35 +0000 (16:28 +0100)
committerJonas Hvid <mail@johv.dk>
Tue, 10 Dec 2019 15:28:35 +0000 (16:28 +0100)
sys.f patch | blob | history

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