From e4f1fba4e8cc3991a6b6f40570c096c01f7c302d Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Fri, 17 Nov 2023 20:27:33 -0500
Subject: add native definition bit

---
 forth/tools.fth | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'forth/tools.fth')

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 ;
-- 
cgit v1.2.3