* src/emacs-module.c (funcall_module): Add a nontrivial assertion
This commit is contained in:
parent
66a2c412be
commit
88c91f53df
1 changed files with 5 additions and 0 deletions
|
@ -902,6 +902,11 @@ funcall_module (Lisp_Object function, ptrdiff_t nargs, Lisp_Object *arglist)
|
|||
memory_full (sizeof *args[i]);
|
||||
}
|
||||
|
||||
/* The only possibility of getting an error until here is failure to
|
||||
allocate memory for the arguments, but then we already should
|
||||
have signaled an error before. */
|
||||
eassert (priv.pending_non_local_exit == emacs_funcall_exit_return);
|
||||
|
||||
emacs_value ret = func->subr (env, nargs, args, func->data);
|
||||
|
||||
eassert (&priv == env->private_members);
|
||||
|
|
Loading…
Add table
Reference in a new issue