Introduce new misc type for module function

This resolves a couple of FIXMEs in emacs-module.c.

* src/lisp.h (MODULE_FUNCTIONP, XMODULE_FUNCTION): New functions.

* src/alloc.c (make_module_function): New function.
(mark_object): GC support.

* src/data.c (Ftype_of, syms_of_data): Handle module function type.

* src/print.c (print_object): Print support for new type.

* src/emacs-module.c (module_make_function, Finternal_module_call):
Use new module function type, remove FIXMEs.
(module_format_fun_env): Adapt and give it external linkage.

* test/src/emacs-module-tests.el (module-function-object): Add unit
test.

1 files changed, 7 insertions, 0 deletions

diff --git a/src/alloc.c b/src/alloc.c
index ab6b2960af0..cecd9f55058 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3943,6 +3943,12 @@ make_user_ptr (void (*finalizer) (void *), void *p)
   return obj;
 }
 
+/* Create a new module function environment object.  */
+Lisp_Object
+make_module_function ()
+{
+  return allocate_misc (Lisp_Misc_Module_Function);
+}
 #endif
 
 static void
@@ -6634,6 +6640,7 @@ mark_object (Lisp_Object arg)
 
 #ifdef HAVE_MODULES
         case Lisp_Misc_User_Ptr:
+        case Lisp_Misc_Module_Function:
           XMISCANY (obj)->gcmarkbit = true;
           break;
 #endif