From 0ede616831367ceeee99a7fbab19df0c0169c129 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Wed, 22 Feb 2023 12:23:42 -0500
Subject: [PATCH] add j

---
 compat.txt | 2 +-
 core.fth   | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

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 ;