From 506d73299cd5559b4d303260f2f05901886c937a Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Fri, 1 Aug 2008 13:53:43 +0000
Subject: fix problems with trapreturn, in particular in source inside trap

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

(limited to 'Src/init.c')

diff --git a/Src/init.c b/Src/init.c
index cf6164321..fcbf9236c 100644
--- a/Src/init.c
+++ b/Src/init.c
@@ -191,7 +191,7 @@ loop(int toplevel, int justonce)
 	    exit(lastval);
 	if (((!interact || sourcelevel) && errflag) || retflag)
 	    break;
-	if (trapreturn) {
+	if (trapreturn >= 0) {
 	    lastval = trapreturn;
 	    trapreturn = 0;
 	}
-- 
cgit 1.4.1