From e4f1fba4e8cc3991a6b6f40570c096c01f7c302d Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Fri, 17 Nov 2023 20:27:33 -0500 Subject: add native definition bit --- libalee/corewords.cpp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libalee/corewords.cpp') diff --git a/libalee/corewords.cpp b/libalee/corewords.cpp index d47e092..8ff7ac6 100644 --- a/libalee/corewords.cpp +++ b/libalee/corewords.cpp @@ -241,7 +241,7 @@ void CoreWords::word_semic(State& state) { // Concludes word definition. dcell = Dictionary::MaxDistance; } state.dict.write(cell, - (state.dict.read(cell) & 0x1F) | static_cast(dcell << 6)); + (state.dict.read(cell) & 0x1F) | static_cast(dcell << Dictionary::DistancePos)); state.dict.latest(cell); } void CoreWords::word_jmp0(State& state) { // Jump if popped value equals zero. -- cgit v1.2.3