reset to interacting state on error

diff --git a/compile.asm b/compile.asm
index fc9d3f5416207f48d6f27ec4568ff44c8aa80a81..c815291554239862cc17b422f4dfb1b92b947e9f 100644 (file)
--- 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,':'