* src/eval.c (clobbered_eassert): Check E's syntax.
This commit is contained in:
parent
bb4212d10b
commit
074d5cd873
1 changed files with 2 additions and 2 deletions
|
|
@ -1057,11 +1057,11 @@ usage: (catch TAG BODY...) */)
|
||||||
return internal_catch (tag, Fprogn, XCDR (args));
|
return internal_catch (tag, Fprogn, XCDR (args));
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Assert that E is true, as a comment only. Use this instead of
|
/* Assert that E is true, but do not evaluate E. Use this instead of
|
||||||
eassert (E) when E contains variables that might be clobbered by a
|
eassert (E) when E contains variables that might be clobbered by a
|
||||||
longjmp. */
|
longjmp. */
|
||||||
|
|
||||||
#define clobbered_eassert(E) ((void) 0)
|
#define clobbered_eassert(E) verify (sizeof (E) != 0)
|
||||||
|
|
||||||
/* Set up a catch, then call C function FUNC on argument ARG.
|
/* Set up a catch, then call C function FUNC on argument ARG.
|
||||||
FUNC should return a Lisp_Object.
|
FUNC should return a Lisp_Object.
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue