X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=sys.f;h=df2d231a8266511b8dcfe5cc251f1be28bd4055f;hb=03fd7979b12ff7cc5d074bb83c9d4e3fcdf616c3;hp=23fed8781df27e3ee98bfff9a2bd8b12375d1968;hpb=02f53b20b4f7244a84a442bbae10eb8401abcfc5;p=rrq%2Fjonasforth.git

diff --git a/sys.f b/sys.f
index 23fed87..df2d231 100644
--- a/sys.f
+++ b/sys.f
@@ -13,3 +13,16 @@ EXIT [
 : / /MOD DROP ;
 : MOD /MOD SWAP DROP ;
 : NEG 0 SWAP - ;
+
+: IF IMMEDIATE
+  ' 0BRANCH ,
+  HERE @
+  0 ,
+;
+
+: THEN IMMEDIATE
+  DUP
+  HERE @ SWAP -
+  SWAP !
+;
+