Functionally complete implementation.

[forth.jl.git] / src / lib_7_vocab.4th

diff --git a/src/lib_7_vocab.4th b/src/lib_7_vocab.4th
index 5f13b47..99900a0 100644 (file)
--- a/src/lib_7_vocab.4th
+++ b/src/lib_7_vocab.4th
@@ -10,7 +10,7 @@
 
         >link
 
-        DUP @ LATEST !      ( set LATEST to point to the previous word )
+        DUP @ CURRENT @ VOCAB>LATEST !      ( set LATEST to point to the previous word )
 ;
 
 \ Mark word as hidden
@@ -70,11 +70,10 @@ vocabulary ROOT
 ;
 
 : PREVIOUS
-        #context @ 1 > if
-                1 #context -!
-        else
-                CR ." Cannot empty search order stack!"
-        then
+        #context @
+        1 <= abort" Cannot empty search order stack!"
+
+        1 #context -!
 ;
 
 : ALSO