diff options
| -rw-r--r-- | sanctuary.fs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/sanctuary.fs b/sanctuary.fs index b542b64..ab59c1d 100644 --- a/sanctuary.fs +++ b/sanctuary.fs @@ -587,8 +587,9 @@ decimal \ todo ignore smudged words : vlist ( wid -- ) dup empty-wordlist? if drop exit then @ begin ( ht ) - dup >nfa count type space - @ ?dup 0= + dup visible? if + dup >nfa count type space + then @ ?dup 0= until cr ; \ doesn't work when there are multiple vocabularies, \ for some reason the header of the last word is printed |