diff options
| author | kitty <nepeta@canaglie.net> | 2026-04-21 23:50:55 +1000 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-04-21 23:50:55 +1000 |
| commit | 48c527759f7d05a2839d9072f04d4b3c19bdd64d (patch) | |
| tree | 015e0b0525ca828c70b22a8a3a8f82d107dc2d64 | |
| parent | a9832c2a419acae33a7a2a1b752d427e4cdf0b86 (diff) | |
words: don't print hidden words
| -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 |