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