diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2024-01-01 10:16:16 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2024-01-01 10:16:16 -0500 |
| commit | e8c9f97f4fa9502b88c8c3a44c5d5f5f1c98d506 (patch) | |
| tree | 37936d41a6e595d5fdf4b9d1f74a007b6832985f /forth/tools.fth | |
| parent | 2261914a6b291bf4073cddf30a862df3c3a341e9 (diff) | |
| parent | 6e4c0430de5ade2c8375ddcdeec93d4df3b163b1 (diff) | |
Merge branch 'native' of ssh://code.bitgloo.com:222/bitgloo/alee-forth into native
Diffstat (limited to 'forth/tools.fth')
| -rw-r--r-- | forth/tools.fth | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/forth/tools.fth b/forth/tools.fth index b27955d..3cee2bf 100644 --- a/forth/tools.fth +++ b/forth/tools.fth @@ -6,8 +6,8 @@ : words _latest @ begin dup @ dup 31 & 2 pick cell+ \ lt l len ws - 2 pick 6 >> 1023 < if \ lt l len ws - rot 6 >> else \ lt len ws adv + 2 pick 7 >> 1023 < if \ lt l len ws + rot 7 >> else \ lt len ws adv >r cell+ rot drop r> @ then -rot swap type space \ lt adv over _begin <> while - repeat 2drop ; |