From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Tue, 8 Jun 2021 06:23:03 +0000 (+1000)
Subject: reset to interacting state on error
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=12f5c95467140afef0635e1b0d3f283684db028d;p=rrq%2Frrqforth.git

reset to interacting state on error
---

diff --git a/compile.asm b/compile.asm
index fc9d3f5..c815291 100644
--- a/compile.asm
+++ b/compile.asm
@@ -286,6 +286,7 @@ p_evaluate_stream_END:
 	dq p_literal, 1
 p_evaluate_stream_BAD:
 	dq p_Rgt, p_input, p_put ; restore previous stream
+	dq p_literal,0, p_state, p_put ; set interactive mode
 	dq p_return
 
 	WORD p_colon,':'