From f1c702f2a4159409b27b9576999614a69a51987d Mon Sep 17 00:00:00 2001
From: Peter Stephenson <p.w.stephenson@ntlworld.com>
Date: Sun, 29 Mar 2015 19:47:01 +0100
Subject: 34817: Catch some errors earlier when reading history.

Mostly for the case of an interrupt.

Don't try to process words when we know something's gone wrong.

Also abort history reading earlier on an interrupt.
---
 Src/lex.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Src/lex.c')

diff --git a/Src/lex.c b/Src/lex.c
index 5fed2be49..184a54b0b 100644
--- a/Src/lex.c
+++ b/Src/lex.c
@@ -1345,6 +1345,8 @@ gettokstr(int c, int sub)
 	    break;
     }
   brk:
+    if (errflag)
+	return LEXERR;
     hungetc(c);
     if (unmatched)
 	zerr("unmatched %c", unmatched);
-- 
cgit 1.4.1