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/signals.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Src/signals.c')

diff --git a/Src/signals.c b/Src/signals.c
index 022ee8fb5..61fff64a2 100644
--- a/Src/signals.c
+++ b/Src/signals.c
@@ -1085,6 +1085,7 @@ dotrapargs(int sig, int *sigtr, void *sigfn)
     int trapret = 0;
     int obreaks = breaks;
     int oretflag = retflag;
+    int otrapreturn = trapreturn;
     int isfunc;
     int traperr;
 
@@ -1183,6 +1184,7 @@ dotrapargs(int sig, int *sigtr, void *sigfn)
 	trapret = trapreturn + 1;
     }
     traperr = errflag;
+    trapreturn = otrapreturn;
     execrestore();
     lexrestore();
 
-- 
cgit 1.4.1