* src/alloc.c (cleanup_vector): Fix --without-modules builds.

diff --git a/src/alloc.c b/src/alloc.c
index f59f8cbde9a61b9812c06f49d85e59fcc9ad639d..29ccb38e7b7ceaf404099f0a5c4ef10d26a0d480 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3027,12 +3027,14 @@ cleanup_vector (struct Lisp_Vector *vector)
       if (uptr->finalizer)
        uptr->finalizer (uptr->p);
     }
+#ifdef HAVE_MODULES
   else if (PSEUDOVECTOR_TYPEP (&vector->header, PVEC_MODULE_FUNCTION))
     {
       ATTRIBUTE_MAY_ALIAS struct Lisp_Module_Function *function
         = (struct Lisp_Module_Function *) vector;
       module_finalize_function (function);
     }
+#endif
 }
 
 /* Reclaim space used by unmarked vectors.  */