From f89a98e0b05b5a9b7e88f812c775fa0908a46027 Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Sat, 24 Oct 2020 14:08:09 -0500
Subject: [PATCH] disallow interpreting string literals in bootstrap mode

---
 jumpforth.S | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/jumpforth.S b/jumpforth.S
index 3b8b876..4bab12a 100644
--- a/jumpforth.S
+++ b/jumpforth.S
@@ -1366,7 +1366,8 @@ defword INTERPRET
    .int     LIT,LITSTRING,COMMA,HERE,LIT,0,COMMABYTE
    .int     READSTRING,ROT,STOREBYTE,DROP,ALIGN,EXIT
    /*     ELSE */
-0: .int     READSTRING,EXIT
+   litstring "Tried to interpret a string literal\n"
+   .int     TYPE,BAILOUT
    /*   ELSE */
 1: .int   WORD,TWODUP,PARSENUMBER,ZBRANCH,(3f - .)
    .int     NROT,TWODROP