From 4db28c55b64ec25cd258f87a0d60b0544fe50059 Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Fri, 10 Jul 2009 22:10:25 +0000
Subject: 27126: a few more contexts where executing empty lists gives status
 zero

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

(limited to 'Src/init.c')

diff --git a/Src/init.c b/Src/init.c
index b0378ccfa..b3224f65a 100644
--- a/Src/init.c
+++ b/Src/init.c
@@ -1131,6 +1131,7 @@ source(char *s)
     fstack.tp = FS_SOURCE;
     funcstack = &fstack;
 
+    lastval = 0;		/* status of empty file is zero */
     if (prog) {
 	pushheap();
 	errflag = 0;
-- 
cgit v1.2.3