* Improve 'maybe_defer_native_compilation'

* src/comp.c (maybe_defer_native_compilation): Always store the
function name in Vcomp_deferred_pending_h if pending for deferred
compilation.

diff --git a/src/comp.c b/src/comp.c
index 5efe026b2b2a812ce773346acbf25d2f998094eb..251613dc3d426e313cc30447f0d7616dd14f748d 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -5127,13 +5127,14 @@ maybe_defer_native_compilation (Lisp_Object function_name,
        return;
     }
 
+  Fputhash (function_name, definition, Vcomp_deferred_pending_h);
+
   /* This is so deferred compilation is able to compile comp
      dependencies breaking circularity.  */
   if (comp__compilable)
     {
       /* Startup is done, comp is usable.  */
       CALL0I (startup--require-comp-safely);
-      Fputhash (function_name, definition, Vcomp_deferred_pending_h);
       CALLN (Ffuncall, intern_c_string ("native--compile-async"),
             src, Qnil, Qlate);
     }