diff options
| -rw-r--r-- | sanctuary.fs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/sanctuary.fs b/sanctuary.fs index ab59c1d..06aa46f 100644 --- a/sanctuary.fs +++ b/sanctuary.fs @@ -575,7 +575,7 @@ decimal \ TOOLS {{{ \ write top of stack on right (as stack notation does) : .s sp >r - sp0 8 - @ begin + sp0 @ cell- begin dup r@ >= while dup @ . @@ -583,8 +583,6 @@ decimal repeat rdrop drop ; -\ my idea is: words does all words, vlist is an internal word that takes a wid -\ todo ignore smudged words : vlist ( wid -- ) dup empty-wordlist? if drop exit then @ begin ( ht ) dup visible? if |