Reimplemented EXPECT. Closes #1.

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

diff --git a/src/lib.4th b/src/lib.4th
index d599036..8da2fb1 100644 (file)
--- a/src/lib.4th
+++ b/src/lib.4th
@@ -587,6 +587,7 @@ DOES>   @
 ;
 
 : WORDS
+        CR
         LATEST @        ( start at LATEST dictionary entry )
         BEGIN
                 ?DUP            ( while link pointer is not null )
@@ -619,6 +620,8 @@ DOES>   @
 : SEE
         BL WORD FIND    ( find the dictionary entry to decompile )
 
+        CR
+
         0= IF
                 ." Word '" COUNT TYPE ." ' not found in dictionary."
                 EXIT
@@ -741,7 +744,7 @@ DOES>   @
 
 : HIDE
         BL WORD FIND DROP >NAME
-        DUP F_HIDDEN OR SWAP !
+        DUP @ F_HIDDEN OR SWAP !
 ;
 
 ( MEMORY  ------------------------------------------------------------------ )