From f40c14715e250efa123fb403f16872ec2b5ad2f1 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Fri, 27 Mar 2020 15:33:04 -0400
Subject: [PATCH] forth: take advantage of the new [] mode

---
 emul/forth/z80c.bin | Bin 622 -> 610 bytes
 forth/icore.fs      |  12 ++++++++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/emul/forth/z80c.bin b/emul/forth/z80c.bin
index 785a2009467d37b2ffbefbbc728f60a55c864306..2685946584fd73bb8e5ab6d805d3535dbcdab454 100644
GIT binary patch
delta 32
ocmaFI@`z=_aYm5@!5FS5oE*%KOrCxru0a7ot|8)+pEI@t0I!P*O#lD@

delta 44
zcmaFF@{VQ0aYlv95(*4#45g9^3<d0^l95~=I60UdnLPbMT!R9FTtk#6-)3wF03&`3
AwEzGB

diff --git a/forth/icore.fs b/forth/icore.fs
index 713babf..be38c92 100644
--- a/forth/icore.fs
+++ b/forth/icore.fs
@@ -29,13 +29,21 @@
 
   This means, of course, that any word compiling a _c word
   can't be executed immediately.
+
+  Also note that because of that "_c" mechanism, it might
+  take two rounds of bootstrapping before the compiled
+  z80c.bin file is "stabilized". That's because the 2nd time
+  around, the recorded offset will have changed.
 )
 
 : _c
-    ['] ROT
+    [
+    ' ROT
     6 -         ( header )
-    ['] _bend
+    ' _bend
     -           ( our offset )
+    LITN
+    ]
     '           ( get word )
     -^          ( apply offset )
     ,           ( write! )