; Rename 'startup--require-comp-safetly'

* src/comp.c (maybe_defer_native_compilation):
* lisp/startup.el (startup--require-comp-safely): Rename from
'startup--require-comp-safetly'.  All callers changed.

diff --git a/lisp/startup.el b/lisp/startup.el
index f4216f7c4cbccb540d345fea641131865418f7ed..60aaa76002fa2e9881f83e9fb6abe2f5b9f12d01 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -521,7 +521,7 @@ DIRS are relative."
 
 (defvar comp--loadable)
 (defvar comp--delayed-sources)
-(defun startup--require-comp-safetly ()
+(defun startup--require-comp-safely ()
   "Require the native compiler avoiding circular dependencies."
   (unless (featurep 'comp)
     ;; Require comp with `comp--loadable' set to nil to break
@@ -537,7 +537,7 @@ DIRS are relative."
   "Honor pending delayed deferred native compilations."
   (when (and (native-comp-available-p)
              comp--delayed-sources)
-    (startup--require-comp-safetly))
+    (startup--require-comp-safely))
   (setq comp--loadable t))
 
 (defvar native-comp-eln-load-path)

diff --git a/src/comp.c b/src/comp.c
index 66288988fd8fe4b7248967eb23159465d2670265..56e583eb5c8f5e82468c0f00e35667f6e5269758 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -5132,7 +5132,7 @@ maybe_defer_native_compilation (Lisp_Object function_name,
   if (comp__loadable)
     {
       /* Startup is done, comp is usable.  */
-      CALL0I(startup--require-comp-safetly);
+      CALL0I (startup--require-comp-safely);
       Fputhash (function_name, definition, Vcomp_deferred_pending_h);
       CALLN (Ffuncall, intern_c_string ("native--compile-async"),
             src, Qnil, Qlate);