WORDS no longer shows SMUDGED words

philburk · Nov 19, 2022 · 9652590 · 9652590
1 parent 66093ef
commit 9652590
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git 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
 ;

diff --git a/fth/private.fth b/fth/private.fth
@@ -21,7 +21,6 @@ anew task-private.fth
 
 variable private-start
 variable private-stop
-$ 20 constant FLAG_SMUDGE
 
 : PRIVATE{
     private-start @ 0= not abort" ERROR: Missing PRIVATIZE"