X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Flib_7_vocab.4th;h=22d98b573e3daa4d6ca74f62a1e2f7e7b379fb23;hb=bd6a460f93aec59bd995b0133b3e965a584144ae;hp=5f13b47e2355280fa3a1d0d1f679e54f30c12c6e;hpb=90a9b8ad41a542c3ca7d150d4d1168cb8ec97b81;p=forth.jl.git

diff --git a/src/lib_7_vocab.4th b/src/lib_7_vocab.4th
index 5f13b47..22d98b5 100644
--- 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 @ 1+ !      ( set LATEST to point to the previous word )
 ;
 
 \ Mark word as hidden
@@ -35,7 +35,7 @@
         WHILE
                 SWAP 1+         ( addr len -- len addr+1 )
                 DUP @           ( len addr -- len addr char | get the next character)
-                DUP 32 >= OVER 127 <= AND IF
+                DUP 32 >= IF
                         EMIT    ( len addr char -- len addr | and print it)
                 ELSE
                         BASE @ SWAP HEX
@@ -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