From 0b11979b5e3aba14b3059efb978ca932e37e96e4 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sat, 19 Sep 2020 14:28:10 -0400
Subject: [PATCH] Fix LIT"

I've mistakenly broken it in previous commit.
---
 blk/264       |   4 ++++
 blk/270       |   2 +-
 blk/382       |   2 +-
 cvm/forth.bin | Bin 5262 -> 5262 bytes
 4 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/blk/264 b/blk/264
index c473f4e..176d03e 100644
--- a/blk/264
+++ b/blk/264
@@ -1,3 +1,7 @@
 : XAGAIN LIT< (br) XFIND , H@ - C, ;
 : XUNTIL LIT< (?br) XFIND , H@ - C, ;
 : XLIT< LIT< (s) XFIND , WORD DUP C@ 1+ MOVE, ;
+: XLIT"
+    LIT< (s) XFIND , H@ 0 C, ,"
+    DUP H@ -^ 1- SWAP C!
+;
diff --git a/blk/270 b/blk/270
index 6e287c6..a169868 100644
--- a/blk/270
+++ b/blk/270
@@ -5,7 +5,7 @@
 : DO XDO ; IMMEDIATE : LOOP XLOOP ; IMMEDIATE
 : IF XIF ; IMMEDIATE : ELSE XELSE ; IMMEDIATE
 : AGAIN XAGAIN ; IMMEDIATE : UNTIL XUNTIL ; IMMEDIATE
-: LIT< XLIT< ; IMMEDIATE
+: LIT< XLIT< ; IMMEDIATE : LIT" XLIT" ; IMMEDIATE
 : IMMEDIATE XIMM ;
 : (entry) (xentry) ;
 : CREATE XCREATE ;
diff --git a/blk/382 b/blk/382
index 106094c..83d7076 100644
--- a/blk/382
+++ b/blk/382
@@ -3,7 +3,7 @@
         C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,
     AGAIN ;
 : LIT"
-    0x2b ( (s) ) , H@ 0 C, ,"
+    COMPILE (s) H@ 0 C, ,"
     DUP H@ -^ 1- ( a len ) SWAP C!
 ; IMMEDIATE
 : ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE
diff --git a/cvm/forth.bin b/cvm/forth.bin
index d11ba800b7537e28d95157fbd50e65e7aa92d03f..15879e4310ea07fbb50574ec98a46462a044900a 100644
GIT binary patch
delta 32
lcmeCv?9<$^f`>6`@=6|gAbFBU5lFt~v0;qbtihYc4gj`<3Q7O~

delta 32
lcmeCv?9<$^f`?Ii@=6|gAbFBU5lFt~v0>EStihYc4gjlw361~&