From a03acf0ca2792562e3d7089b69763a3938b18769 Mon Sep 17 00:00:00 2001
From: Bart Schaefer <barts@users.sourceforge.net>
Date: Sat, 25 Aug 2001 16:43:31 +0000
Subject: Fix crash on re-entry to loop() from preprompt().

---
 Src/init.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'Src')

diff --git a/Src/init.c b/Src/init.c
index cbfaf5ad0..5a86800d1 100644
--- a/Src/init.c
+++ b/Src/init.c
@@ -107,6 +107,8 @@ loop(int toplevel, int justonce)
     pushheap();
     for (;;) {
 	freeheap();
+	if (stophist == 3)	/* re-entry via preprompt() */
+	    hend(NULL);
 	hbegin(1);		/* init history mech        */
 	if (isset(SHINSTDIN)) {
 	    setblock_stdin();
@@ -114,7 +116,10 @@ loop(int toplevel, int justonce)
 	        int hstop = stophist;
 		stophist = 3;
 		preprompt();
-		stophist = hstop;
+		if (stophist != 3)
+		    hbegin(1);
+		else
+		    stophist = hstop;
 		errflag = 0;
 	    }
 	}
-- 
cgit 1.4.1