X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=forth.jl.git;a=blobdiff_plain;f=src%2Flib.4th;h=8da2fb1c65983365fcb421d5886c72974816c45f;hp=664ff80c66a8467fdabf1dae01441fa293c30cc0;hb=b18e42773e45b9d4819cf0e2d2c5965bd34dcb4f;hpb=f3f77474664434c1330f74494463ea34ce148ff4 diff --git a/src/lib.4th b/src/lib.4th index 664ff80..8da2fb1 100644 --- 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