Fixed FORGET.

diff --git a/src/lib_7_vocab.4th b/src/lib_7_vocab.4th
index 99900a0..0631ff0 100644 (file)
--- 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 (file)
--- 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