From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sat, 11 Jun 2016 01:51:13 +0000 (+1200)
Subject: Fixed FORGET.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=698e6c176256cd3b3a4fa8a647feec57db3a8c14;p=forth.jl.git

Fixed FORGET.
---

diff --git a/src/lib_7_vocab.4th b/src/lib_7_vocab.4th
index 99900a0..0631ff0 100644
--- a/src/lib_7_vocab.4th
+++ b/src/lib_7_vocab.4th
@@ -10,7 +10,7 @@
 
         >link
 
-        DUP @ CURRENT @ VOCAB>LATEST !      ( set LATEST to point to the previous word )
+        dup @ current @ 1+ !      ( set LATEST to point to the previous word )
 ;
 
 \ Mark word as hidden
diff --git a/src/lib_8_decompiler.4th b/src/lib_8_decompiler.4th
index 3db6766..412d7f1 100644
--- a/src/lib_8_decompiler.4th
+++ b/src/lib_8_decompiler.4th
@@ -61,7 +61,7 @@
 
         0= IF
                 ." Word '" COUNT TYPE ." ' not found in dictionary."
-                EXIT
+                CR ABORT
         THEN
 
         DUP DUP BODYLEN + SWAP >LINK