Mercurial > hg > xemacs-beta

comparison src/eval.c @ 211:78478c60bfcd r20-4b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b4
author cvs
date Mon, 13 Aug 2007 10:05:51 +0200
parents 850242ba4a81
children 2c611d1463a6
comparison
equal deleted inserted replaced
210:49f55ca3ba57 211:78478c60bfcd
1445 1445
1446 static DOESNT_RETURN 1446 static DOESNT_RETURN
1447 throw_or_bomb_out (Lisp_Object tag, Lisp_Object val, int bomb_out_p, 1447 throw_or_bomb_out (Lisp_Object tag, Lisp_Object val, int bomb_out_p,
1448 Lisp_Object sig, Lisp_Object data) 1448 Lisp_Object sig, Lisp_Object data)
1449 { 1449 {
1450 #if 0
1450 /* die if we recurse more than is reasonable */ 1451 /* die if we recurse more than is reasonable */
1451 if (++throw_level > 20) 1452 if (++throw_level > 20)
1452 abort(); 1453 abort();
1454 #endif
1453 1455
1454 /* If bomb_out_p is t, this is being called from Fsignal as a 1456 /* If bomb_out_p is t, this is being called from Fsignal as a
1455 "last resort" when there is no handler for this error and 1457 "last resort" when there is no handler for this error and
1456 the debugger couldn't be invoked, so we are throwing to 1458 the debugger couldn't be invoked, so we are throwing to
1457 'top-level. If this tag doesn't exist (happens during the 1459 'top-level. If this tag doesn't exist (happens during the