1 files changed, 5 insertions, 0 deletions
diff --git a/core.fth b/core.fth
index 3f850b1..1a6f1dd 100644
--- a/core.fth
+++ b/core.fth
@@ -34,7 +34,12 @@
 : +!        dup >r swap r> @ + swap ! ;
 : allot     dp +! ;
 : ,         here ! cell allot ;
+: [']       ' [ ' literal , ] ; immediate
 
 : 1+        1 + ;
 : 1-        1 - ;
 
+: if       ['] _jmp0 , here 0 , ; immediate
+: then     here swap ! ; immediate
+: else     ['] _jmp , here 0 , swap here swap ! ; immediate
+