diff options
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/eval.c b/src/eval.c index 5a9327a99d8..3360a6b9a56 100644 --- a/src/eval.c +++ b/src/eval.c @@ -131,7 +131,6 @@ int handling_signal; Lisp_Object inhibit_lisp_code; static Lisp_Object funcall_lambda (Lisp_Object, ptrdiff_t, Lisp_Object *); -static void unwind_to_catch (struct catchtag *, Lisp_Object) NO_RETURN; static int interactive_p (int); static Lisp_Object apply_lambda (Lisp_Object fun, Lisp_Object args); static Lisp_Object Ffetch_bytecode (Lisp_Object); @@ -1111,10 +1110,10 @@ internal_catch (Lisp_Object tag, Lisp_Object (*func) (Lisp_Object), Lisp_Object This is used for correct unwinding in Fthrow and Fsignal. */ -static void +static _Noreturn void unwind_to_catch (struct catchtag *catch, Lisp_Object value) { - register int last_time; + int last_time; /* Save the value in the tag. */ catch->val = value; |