diff options
| author | kitty <nepeta@canaglie.net> | 2026-04-22 00:28:19 +1000 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-04-22 00:28:19 +1000 |
| commit | 469d8c515ee46e4c14988c094e88151b59eb91ec (patch) | |
| tree | ba81821c24f75285b63de46bdbd158e938031aac /sanctuary.fs | |
| parent | 48c527759f7d05a2839d9072f04d4b3c19bdd64d (diff) | |
fix .s
Diffstat (limited to 'sanctuary.fs')
| -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 |