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-ext.fth | 47 ++++++++++++++++++++++++-----------------------
 1 file changed, 24 insertions(+), 23 deletions(-)

(limited to 'forth/core-ext.fth')

diff --git a/forth/core-ext.fth b/forth/core-ext.fth
index 620dd64..7e4da06 100644
--- a/forth/core-ext.fth
+++ b/forth/core-ext.fth
@@ -16,29 +16,30 @@
 
 : 2r@      ['] r> , ['] r> , ['] 2dup , ['] >r , ['] >r , ['] swap , ; imm
 
-: compile, postpone literal postpone execute ;
-: \        _source @ >in @ +
-           begin dup c@ while 0 over c! char+ repeat drop ; imm
-: again    postpone repeat ; imm
-: ?do      ['] 2dup , ['] _lit , here 0 , ['] >r , ['] = , postpone if
-           ['] 2drop , postpone 2r> ['] drop , ['] >r , ['] leave ,
-           postpone then postpone 2>r here ; imm
-
-: .(       [char] ) word count type ; imm
-: c"       state @ if ['] _jmp , here 0 , then
-           [char] " word
-           state @ 0= if exit then
-           dup count nip allot
-           here rot !
-           postpone literal ; imm
-
-: buffer:  create allot ;
-: value    constant ;
-: to       ' 4 cells + state @ if postpone literal ['] ! , else ! then ; imm
-: defer    create does> @ execute ;
-: defer@   >body @ ;
-: defer!   >body ! ;
-: is       state @ if postpone ['] postpone defer! else ' defer! then ; imm
+: compile,  postpone literal postpone execute ;
+: [compile] bl word find -1 = if , else compile, then ; imm
+: \         _source @ >in @ +
+            begin dup c@ while 0 over c! char+ repeat drop ; imm
+: again     postpone repeat ; imm
+: ?do       ['] 2dup , ['] _lit , here 0 , ['] >r , ['] = , postpone if
+            ['] 2drop , postpone 2r> ['] drop , ['] >r , ['] leave ,
+            postpone then postpone 2>r here ; imm
+
+: .(        [char] ) word count type ; imm
+: c"        state @ if ['] _jmp , here 0 , then
+            [char] " word
+            state @ 0= if exit then
+            dup count nip allot
+            here rot !
+            postpone literal ; imm
+
+: buffer:   create allot ;
+: value     constant ;
+: to        ' 4 cells + state @ if postpone literal ['] ! , else ! then ; imm
+: defer     create does> @ execute ;
+: defer@    >body @ ;
+: defer!    >body ! ;
+: is        state @ if postpone ['] postpone defer! else ' defer! then ; imm
 : action-of state @ if postpone ['] postpone defer@ else ' defer@ then ; imm
 
 : erase    0 fill ;
-- 
cgit v1.2.3