add j

2 years ago · 0ede616831
parent bf9f8a902b
commit 0ede616831
2 changed files with 2 additions and 1 deletions
--- 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
--- 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 ;