From 698e6c176256cd3b3a4fa8a647feec57db3a8c14 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Sat, 11 Jun 2016 13:51:13 +1200 Subject: [PATCH] Fixed FORGET. --- src/lib_7_vocab.4th | 2 +- src/lib_8_decompiler.4th | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 -- 2.20.1