From 91566e20e85cd2b504da7579dfca6df592ea7b30 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Fri, 27 Oct 2023 21:11:44 -0400
Subject: fix core and core-ext impl to pass all tests

---
 libalee/corewords.cpp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'libalee/corewords.cpp')

diff --git a/libalee/corewords.cpp b/libalee/corewords.cpp
index 1a39b7e..6900b45 100644
--- a/libalee/corewords.cpp
+++ b/libalee/corewords.cpp
@@ -155,6 +155,7 @@ execute:
         break;
     case 22: // colon
         state.push(state.dict.alignhere());
+        state.dict.write(Dictionary::CompToken, state.top());
         while (!state.dict.hasInput())
             state.input();
         state.dict.addDefinition(state.dict.input());
-- 
cgit v1.2.3