From a8c7d3c0ee5eb1d4a83c86f68b5d22f9e44c6b3b Mon Sep 17 00:00:00 2001
From: Sven Wischnowsky <wischnow@users.sourceforge.net>
Date: Mon, 28 Aug 2000 07:04:34 +0000
Subject: fix for `function' without names (12710)

---
 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 698591475..8d26e604a 100644
--- a/Src/exec.c
+++ b/Src/exec.c
@@ -3070,7 +3070,10 @@ execfuncdef(Estate state, int do_exec)
     LinkList names;
 
     end = beg + WC_FUNCDEF_SKIP(state->pc[-1]);
-    names = ecgetlist(state, *state->pc++, EC_DUPTOK, &htok);
+    if (!(names = ecgetlist(state, *state->pc++, EC_DUPTOK, &htok))) {
+	state->pc = end;
+	return 0;
+    }
     nprg = end - beg;
     sbeg = *state->pc++;
     nstrs = *state->pc++;
-- 
cgit 1.4.1