rename comp-ctxt-funcs comp-ctxt-exp-funcs

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 17a8a7ef9f63328844131d9542e8db09b48bb3f4..deeff88d26a43594bf73a86a72a052c4f669e0f9 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -84,9 +84,9 @@
   (output nil :type 'string
           :documentation "Target output filename for the compilation.")
   (top-level-defvars nil :type list
-                   :documentation "List of top level form to be compiled.")
-  (funcs () :type list
-         :documentation "Exported functions list.")
+                   :documentation "List of top level form to be exp.")
+  (exp-funcs () :type list
+             :documentation "Exported functions list.")
   (funcs-h (make-hash-table) :type hash-table
            :documentation "lisp-func-name -> comp-func.
 This is to build the prev field.")
@@ -918,7 +918,7 @@ Top level forms for the current context are rendered too."
 Prepare every functions for final compilation and drive the C side."
   (cl-assert (= (length (comp-ctxt-data-relocs-l comp-ctxt))
                 (hash-table-count (comp-ctxt-data-relocs-idx comp-ctxt))))
-  (setf (comp-ctxt-funcs comp-ctxt)
+  (setf (comp-ctxt-exp-funcs comp-ctxt)
         (cl-loop with h = (comp-ctxt-funcs-h comp-ctxt)
                  for f being each hash-value of h
                  for args = (comp-func-args f)

diff --git a/src/comp.c b/src/comp.c
index 33ed4d6397bada9e9458fa0f1b0bff22e1356cef..1c201c16c933ada6573075e7352698a80ff6f8ab 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -1801,7 +1801,7 @@ emit_ctxt_code (void)
       IMPORTED_FUNC_RELOC_SYM);
 
   /* Exported functions info.  */
-  Lisp_Object func_list = FUNCALL1 (comp-ctxt-funcs, Vcomp_ctxt);
+  Lisp_Object func_list = FUNCALL1 (comp-ctxt-exp-funcs, Vcomp_ctxt);
   emit_static_object (TEXT_EXPORTED_FUNC_RELOC_SYM, func_list);
   SAFE_FREE ();
 }