From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 28 Nov 2015 11:59:12 +0000 (+0200)
Subject: Don't reject module calls with no arguments
X-Git-Tag: emacs-25.0.90~618
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a63d1eca8de317b85e59732f8628eae52250901a;p=emacs.git

Don't reject module calls with no arguments

* src/emacs-module.c (Finternal_module_call): Allow ARGLIST be nil.
---

diff --git a/src/emacs-module.c b/src/emacs-module.c
index 76c9098bab3..403e7d24d3e 100644
--- a/src/emacs-module.c
+++ b/src/emacs-module.c
@@ -777,13 +777,14 @@ DEFUN ("module-load", Fmodule_load, Smodule_load, 1, 1, 0,
 DEFUN ("internal--module-call", Finternal_module_call, Sinternal_module_call, 2, 2, 0,
        doc: /* Internal function to call a module function.
 ENVOBJ is a save pointer to a module_fun_env structure.
-ARGLIST is a list of arguments passed to SUBRPTR.  */)
+ARGLIST is a list of arguments passed to SUBRPTR, or nil.  */)
   (Lisp_Object envobj, Lisp_Object arglist)
 {
   CHECK_TYPE (SAVE_VALUEP (envobj), Qsave_value_p, envobj);
   struct Lisp_Save_Value *save_value = XSAVE_VALUE (envobj);
   CHECK_TYPE (save_type (save_value, 0) == SAVE_POINTER, Qsave_pointer_p, envobj);
-  CHECK_CONS (arglist);
+  if (!NILP (arglist))
+    CHECK_CONS (arglist);
   struct module_fun_env *envptr = XSAVE_POINTER (envobj, 0);
   EMACS_INT len = XFASTINT (Flength (arglist));
   eassume (0 <= envptr->min_arity);