diff options
Diffstat (limited to 'sanctuary.fs')
| -rw-r--r-- | sanctuary.fs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/sanctuary.fs b/sanctuary.fs index 9ea7a5a..70bc8cf 100644 --- a/sanctuary.fs +++ b/sanctuary.fs @@ -453,13 +453,18 @@ defer default-wordlist forth-wordlist (vocabulary) forth -1 set-order +: visible? ( ht -- ? ) >ffa c@ 1 and 0= ; + +\ todo handle smudge : search-wordlist ( a u wid -- 0 | ht -1 ) ( wid ) @ begin ( a u ht ) >r 2dup r@ ( a u a u ht ; backup str for next loop ) >nfa count ( a1 u1 a2 u2 ) compare 0= if - 2drop ( drop backup ) - r> -1 exit + r@ visible? if + 2drop ( drop backup ) + r> -1 exit + then then r> @ ?dup 0= until |