Fix broken LIT"

2020-07-05 20:18:03 -04:00 · 2020-07-05 20:18:03 -04:00 · ebf47a2ab5
commit ebf47a2ab5
parent 8bb9230f49
2 changed files with 1 additions and 1 deletions
--- a/blk/382
+++ b/blk/382
@ -3,7 +3,7 @@
        C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,
    AGAIN ;
 : LIT"
-    COMPILE (s) H@ 0 C, ,"
+    0x2b ( (s) ) , H@ 0 C, ,"
    DUP H@ -^ 1- ( a len ) SWAP C!
 ; IMMEDIATE
 : ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE
--- a/cvm/forth.bin
+++ b/cvm/forth.bin