Add word LEAVE

blk/043

@@ -11,6 +11,6 @@ ABORT" x" --   *I* Compiles a ." followed by a ABORT.
 EXECUTE   a -- Execute wordref at addr a
 INTERPRET --   Get a line from stdin, compile it in tmp memory,
                then execute the compiled contents.
+LEAVE     --   In a DO..LOOP, exit at the next LOOP call.
 QUIT      --   Return to interpreter prompt immediately
 EXIT!     --   Exit current INTERPRET loop.
-

forth/core.fs

@@ -133,6 +133,8 @@
     COMPILE R> COMPILE DROP COMPILE R> COMPILE DROP
 ; IMMEDIATE
 
+: LEAVE R> R> DROP I 1- >R >R ;
+
 ( a1 a2 u -- )
 : MOVE
     ( u ) 0 DO