add j

2 files changed, 2 insertions, 1 deletions

diff --git a/compat.txt b/compat.txt
index 54abfe5..927afc1 100644
--- a/compat.txt
+++ b/compat.txt
@@ -86,7 +86,7 @@ yes 6.1.1680 I
 yes 6.1.1700 IF
 yes 6.1.1710 IMMEDIATE (as "imm")
 yes 6.1.1720 INVERT
-    6.1.1730 J 
+yes 6.1.1730 J
 yes 6.1.1750 KEY
     6.1.1760 LEAVE
 yes 6.1.1780 LITERAL
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 ;