From 454d7a339521d250222372ffe8745c296028dee9 Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Sat, 25 Nov 2023 07:03:06 -0500 Subject: add MOVE, FILL, ENVIRONMENT?, ACCEPT, RECURSE --- source/core.cpp | 2 ++ 1 file changed, 2 insertions(+) (limited to 'source') diff --git a/source/core.cpp b/source/core.cpp index 52dbcbb..c5d7f28 100644 --- a/source/core.cpp +++ b/source/core.cpp @@ -147,6 +147,8 @@ void colon() // The actual function list will begin one Cell beyond here. comma(HERE + sizeof(Cell)); + DICT[DIdxCompXt] = *SP - 2 * sizeof(Cell); + // Enter compiling state. STATE = -1; } -- cgit v1.2.3