disallow interpreting string literals in bootstrap mode

2020-10-24 14:08:09 -05:00 · 2020-10-24 14:08:09 -05:00 · f89a98e0b0
parent 36e704b6cb
commit f89a98e0b0
1 changed files with 2 additions and 1 deletions
--- 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