aboutsummaryrefslogtreecommitdiffstats
path: root/src/emacs-module.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/emacs-module.c')
-rw-r--r--src/emacs-module.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/emacs-module.c b/src/emacs-module.c
index 3a246637990..5b9f6629e76 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -786,7 +786,6 @@ funcall_module (Lisp_Object function, ptrdiff_t nargs, Lisp_Object *arglist)
786 } 786 }
787 787
788 emacs_value ret = func->subr (env, nargs, args, func->data); 788 emacs_value ret = func->subr (env, nargs, args, func->data);
789 SAFE_FREE ();
790 789
791 eassert (&priv == env->private_members); 790 eassert (&priv == env->private_members);
792 791
@@ -795,7 +794,7 @@ funcall_module (Lisp_Object function, ptrdiff_t nargs, Lisp_Object *arglist)
795 maybe_quit (); 794 maybe_quit ();
796 795
797 module_signal_or_throw (&priv); 796 module_signal_or_throw (&priv);
798 return unbind_to (count, value_to_lisp (ret)); 797 return SAFE_FREE_UNBIND_TO (count, value_to_lisp (ret));
799} 798}
800 799
801Lisp_Object 800Lisp_Object