From 48c527759f7d05a2839d9072f04d4b3c19bdd64d Mon Sep 17 00:00:00 2001 From: kitty Date: Tue, 21 Apr 2026 23:50:55 +1000 Subject: words: don't print hidden words --- sanctuary.fs | 5 +++-- 1 file 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 -- cgit v1.2.3