add MOVE, FILL, ENVIRONMENT?, ACCEPT, RECURSE

1 files changed, 2 insertions, 0 deletions

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;
 }