X-Git-Url: https://git.gag.com/?p=debian%2Fpforth;a=blobdiff_plain;f=fth%2Fmisc1.fth;fp=fth%2Fmisc1.fth;h=e3fb5d80a3afa46f1691cf39486c389d601c364f;hp=a90bf6f1a78475c086aac30384b3f031db5af605;hb=9652590448fb0da36e7b7c9d65ab4421f0242fad;hpb=66093ef80c28b1be780480390120d9320f0c8da3

diff --git a/fth/misc1.fth b/fth/misc1.fth
index a90bf6f..e3fb5d8 100644
--- a/fth/misc1.fth
+++ b/fth/misc1.fth
@@ -100,13 +100,19 @@ variable TAB-WIDTH  8 TAB-WIDTH !
     tab-width @   swap - spaces
 ;
 
+$ 20 constant FLAG_SMUDGE
+
 \ Vocabulary listing
 : WORDS  ( -- )
     0 latest
     BEGIN  dup 0<>
-    WHILE  dup id. tab cr? ?pause
+    WHILE ( -- count NFA )
+        dup c@ flag_smudge and 0=
+        IF
+            dup id. tab cr? ?pause
+            swap 1+ swap
+        THEN
         prevname
-        swap 1+ swap
     REPEAT drop
     cr . ."  words" cr
 ;