* src/comp.c (maybe_defer_native_compilation):
* lisp/startup.el (startup--require-comp-safely): Rename from
'startup--require-comp-safetly'. All callers changed.
(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
"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)
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);