From ddba135e7d9b596f0c9856e1f409e9f8e07001f1 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Thu, 26 Oct 2023 20:05:40 -0400
Subject: add [COMPILE], fix :NONAME
---
forth/core.fth | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'forth/core.fth')
diff --git a/forth/core.fth b/forth/core.fth
index a4bac26..90a8577 100644
--- a/forth/core.fth
+++ b/forth/core.fth
@@ -198,7 +198,7 @@
else dup emit rot 2dup c! char+ swap drop swap 1- then
repeat drop r> - 1 chars / ;
-: :noname 0 , here ] ;
+: :noname here 0 , here swap ] ;
: evaluate _source @ >r _sourceu @ >r >in @ >r
0 >in ! _sourceu ! _source ! _ev
--
cgit v1.2.3