From 6f3f3c6a010c43881b394cbb60c5f4938a8f43b3 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Mon, 9 Mar 2009 15:57:57 +0000
Subject: 26072: lexsave()/lexrestore() to fix bug with sourcing from "funny"
 places

---
 Src/init.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Src')

diff --git a/Src/init.c b/Src/init.c
index 2c059ffc2..a3aac3e1c 100644
--- a/Src/init.c
+++ b/Src/init.c
@@ -105,6 +105,8 @@ loop(int toplevel, int justonce)
     Eprog prog;
 
     pushheap();
+    if (!toplevel)
+	lexsave();
     for (;;) {
 	freeheap();
 	if (stophist == 3)	/* re-entry via preprompt() */
@@ -199,6 +201,8 @@ loop(int toplevel, int justonce)
 	if (justonce)
 	    break;
     }
+    if (!toplevel)
+	lexrestore();
     popheap();
 }
 
-- 
cgit 1.4.1