From 536a8cb6daf78850d0bc336b0edffe75ae00304f Mon Sep 17 00:00:00 2001
From: Peter Stephenson <pws@users.sourceforge.net>
Date: Fri, 15 Jun 2007 10:20:35 +0000
Subject: 23553: bit missed out

---
 Src/exec.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Src/exec.c')

diff --git a/Src/exec.c b/Src/exec.c
index 7e4b55d43..0aee2d6a9 100644
--- a/Src/exec.c
+++ b/Src/exec.c
@@ -3662,7 +3662,10 @@ execarith(Estate state, UNUSED(int do_exec))
 	fprintf(xtrerr, " ))\n");
 	fflush(xtrerr);
     }
-    errflag = 0;
+    if (errflag) {
+	errflag = 0;
+	return 2;
+    }
     /* should test for fabs(val.u.d) < epsilon? */
     return (val.type == MN_INTEGER) ? val.u.l == 0 : val.u.d == 0.0;
 }
-- 
cgit 1.4.1