add j

diff --git a/compat.txt b/compat.txt
index 54abfe555641e23739fd6008c518ab232011a580..927afc1310f386da6f0b0914c63e247e1685743b 100644 (file)
--- 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 a49530230a408ad3e9654c6b58a81cf51012de24..3d979368747ef2b75ada69caaf30fd704507cf26 100644 (file)
--- 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 ;