From 8d88a966d6640e44a32e445596a9c2fe0cd3f2a8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 7 Feb 1994 01:02:05 +0000 Subject: (internal_condition_case_1): New function. --- src/eval.c | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) (limited to 'src/eval.c') diff --git a/src/eval.c b/src/eval.c index d2ca5418e20..9e5a33d9775 100644 --- a/src/eval.c +++ b/src/eval.c @@ -1094,6 +1094,43 @@ internal_condition_case (bfun, handlers, hfun) return val; } +Lisp_Object +internal_condition_case_1 (bfun, arg, handlers, hfun) + Lisp_Object (*bfun) (); + Lisp_Object arg; + Lisp_Object handlers; + Lisp_Object (*hfun) (); +{ + Lisp_Object val; + struct catchtag c; + struct handler h; + + c.tag = Qnil; + c.val = Qnil; + c.backlist = backtrace_list; + c.handlerlist = handlerlist; + c.lisp_eval_depth = lisp_eval_depth; + c.pdlcount = specpdl_ptr - specpdl; + c.poll_suppress_count = poll_suppress_count; + c.gcpro = gcprolist; + if (_setjmp (c.jmp)) + { + return (*hfun) (Fcdr (c.val)); + } + c.next = catchlist; + catchlist = &c; + h.handler = handlers; + h.var = Qnil; + h.next = handlerlist; + h.tag = &c; + handlerlist = &h; + + val = (*bfun) (arg); + catchlist = c.next; + handlerlist = h.next; + return val; +} + static Lisp_Object find_handler_clause (); DEFUN ("signal", Fsignal, Ssignal, 2, 2, 0, -- cgit v1.2.1