Mercurial > hg > xemacs-beta

comparison src/eval.c @ 5126:2a462149bd6a ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 24 Feb 2010 19:04:27 -0600
parents b5df3737028a 6f2158fa75ed
children a9c41067dd88
comparison
equal deleted inserted replaced
5125:b5df3737028a 5126:2a462149bd6a
1764 throw_or_bomb_out (Lisp_Object tag, Lisp_Object val, int bomb_out_p, 1764 throw_or_bomb_out (Lisp_Object tag, Lisp_Object val, int bomb_out_p,
1765 Lisp_Object sig, Lisp_Object data) 1765 Lisp_Object sig, Lisp_Object data)
1766 { 1766 {
1767 #ifdef DEFEND_AGAINST_THROW_RECURSION 1767 #ifdef DEFEND_AGAINST_THROW_RECURSION
1768 /* die if we recurse more than is reasonable */ 1768 /* die if we recurse more than is reasonable */
1769 if (++throw_level > 20) 1769 assert (++throw_level <= 20);
1770 ABORT ();
1771 #endif 1770 #endif
1772 1771
1773 #ifdef ERROR_CHECK_TRAPPING_PROBLEMS 1772 #ifdef ERROR_CHECK_TRAPPING_PROBLEMS
1774 check_proper_critical_section_nonlocal_exit_protection (); 1773 check_proper_critical_section_nonlocal_exit_protection ();
1775 #endif 1774 #endif