diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-11-17 20:27:33 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-11-17 20:27:33 -0500 |
| commit | e4f1fba4e8cc3991a6b6f40570c096c01f7c302d (patch) | |
| tree | 501a5c03f5a495ab9c5940840a6edfa49a008175 /forth/tools.fth | |
| parent | 22a89e994939824015a2ee23ac8a4d544a0882b6 (diff) | |
add native definition bit
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 ; |