1 files changed, 60 insertions, 53 deletions
diff --git a/core.fth b/core.fth
index 7a6e455..24fa6dc 100644
--- a/core.fth
+++ b/core.fth
@@ -1,72 +1,79 @@
 ( : variable create 0 , ; )
 ( : create here const ; )
 
-: 1+      1 + ;
-: 1-      1 - ;
+: 1+       1 + ;
+: 1-       1 - ;
 
-: !       2 _! ;
-: @       2 _@ ;
-: ,       here ! 2 allot ;
-: cell+   2 + ;
-: cells   2 * ;
+: !        2 _! ;
+: @        2 _@ ;
+: ,        here ! 2 allot ;
+: cell+    2 + ;
+: cells    2 * ;
 
-: c!      1 _! ;
-: c@      1 _@ ;
-: c,      here c! 1 allot ;
-: char+   1+ ;
-: chars   ;
+: over     1 pick ;
+: -rot     rot rot ;
+: nip      swap drop ;
+: tuck     swap over ;
 
-: align   here 1 & if 1 allot then ;
-: aligned dup 1 & if 1+ then ;
+: base     0 ;
+: state    2 ;
+: decimal  1 1+ base ! 1010 base ! ;
+
+: postpone 1 4 ! ; imm
+: [']      ' postpone literal ; imm
 
-( set decimal numbers )
-10 0 !
+: if       ['] _jmp0 , here 0 , ; imm
+: then     here swap ! ; imm
+: else     ['] _jmp , here 0 , here rot ! ; imm
 
-: .       0 sys ;
-: emit    1 sys ;
+: c!       1 _! ;
+: c@       1 _@ ;
+: c,       here c! 1 allot ;
+: char+    1+ ;
+: chars    ;
+
+: align   here 1 & if 1 allot then ;
+: aligned dup 1 & if 1+ then ;
 
-: over    1 pick ;
-: -rot    rot rot ;
-: nip     swap drop ;
-: tuck    swap over ;
+: .        0 sys ;
+: emit     1 sys ;
 
-: +!      swap over @ + swap ! ;
+: +!       swap over @ + swap ! ;
 
-: and     & ;
-: or      | ;
-: xor     ^ ;
-: lshift  << ;
-: rshift  >> ;
-: mod     % ;
-: 2*      2 * ;
-: 2/      2 / ;
+: and      & ;
+: or       | ;
+: xor      ^ ;
+: lshift   << ;
+: rshift   >> ;
+: mod      % ;
+: 2*       2 * ;
+: 2/       2 / ;
 
-: 2drop   drop drop ;
-: 2dup    over over ;
-: 2over   3 pick 3 pick ;
-: 2swap   rot >r rot r> ;
+: 2drop    drop drop ;
+: 2dup     over over ;
+: 2over    3 pick 3 pick ;
+: 2swap    rot >r rot r> ;
 
-: r@      r> dup >r ;
-: 2!      swap over ! cell+ ! ;
-: 2@      dup cell+ @ swap @ ;
+: r@       r> dup >r ;
+: 2!       swap over ! cell+ ! ;
+: 2@       dup cell+ @ swap @ ;
 
-: 0=      0 = ;
-: 0<      0 < ;
-: <=      2dup - 1- 0< ;
-: >       <= 0= ;
+: 0=       0 = ;
+: 0<       0 < ;
+: <=       - 1- 0< ;
+: >        <= 0= ;
 
-: cr      9 emit ;
-: bl      32 ;
-: space   bl emit ;
+: cr       9 emit ;
+: bl       32 ;
+: space    bl emit ;
 
-: state   1 ;
-: base    0 ;
-: decimal 1 2* base ! 1010 base ! ;
+: ?dup     dup if dup then ;
 
-: ?dup    dup if dup then ;
+: negate   -1 * ;
+: abs      dup 0< if negate then ;
+: min      2dup <= if drop else nip then ;
+: max      2dup <= if nip else drop then ;
 
-: negate  -1 * ;
-: abs     dup 0< if negate then ;
-: min     2dup <= if drop else nip then ;
-: max     2dup <= if nip else drop then ;
 
+: begin    here ; imm
+: do       postpone >r postpone >r here ; imm