From 89c144b83077aea584e9bbbf04e1d786220aec4c Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 11 Sep 2019 22:18:41 +0200 Subject: [PATCH] rename comp-ctxt-funcs comp-ctxt-exp-funcs --- lisp/emacs-lisp/comp.el | 8 ++++---- src/comp.c | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 17a8a7ef9f6..deeff88d26a 100644 --- 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 33ed4d6397b..1c201c16c93 100644 --- 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 (); } -- 2.39.5