From 784b109652c60817f43c20dfd357d2eefaa63db5 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Thu, 9 Apr 2020 09:27:51 -0400
Subject: [PATCH] So, why was ":" an immediate again?

---
 emul/forth/z80c.bin | Bin 1681 -> 1681 bytes
 forth/icore.fs      |   2 +-
 forth/xcomp.fs      |   4 +---
 3 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index 50253e2c2ce503b2f43348bcbfd207c6127a45f0..05f100501073f14f02470d839c359569a20c50cf 100644
GIT binary patch
delta 13
UcmbQpJCS#T8yh3zWOp_%02<E&WdHyG

delta 13
UcmbQpJCS#T8yjQeWOp_%03A;Q<p2Nx

diff --git a/forth/icore.fs b/forth/icore.fs
index d02e72a..afc4eab 100644
--- a/forth/icore.fs
+++ b/forth/icore.fs
@@ -220,7 +220,7 @@
     ( maybe number )
     ELSE (parse*) @ EXECUTE LITN THEN
     AGAIN
-; IMMEDIATE
+;
 
 XCURRENT @      ( to PSP )
 
diff --git a/forth/xcomp.fs b/forth/xcomp.fs
index 619210b..0004720 100644
--- a/forth/xcomp.fs
+++ b/forth/xcomp.fs
@@ -53,8 +53,6 @@ VARIABLE XOFF
     (xentry) 23 ,
 ;
 
-: _IMM IMMEDIATE ;
-
 : IMMEDIATE
     XCURRENT @ 1 -
     DUP C@ 128 OR SWAP C!
@@ -88,4 +86,4 @@ VARIABLE XOFF
         (parse*) @ EXECUTE LITN
     THEN
     AGAIN
-; _IMM
+;