add j

1 files changed, 1 insertions, 0 deletions

diff --git a/core.fth b/core.fth
index a495302..3d97936 100644
--- a/core.fth
+++ b/core.fth
@@ -70,6 +70,7 @@
            postpone unloop ; imm
 : loop     1 postpone literal postpone +loop ; imm
 : i        postpone r@ ; imm 
+: j        postpone 2r> postpone r@ ['] -rot , postpone 2>r ; imm
 
 : align    here 1 & if 1 allot then ;
 : aligned  dup 1 & if 1+ then ;