Make load argument of native-compile-async internal

* lisp/emacs-lisp/comp.el (native--compile-async): New defun extracted
from native-compile-async.
(native-compile-async): Remove load argument and use above new defun.
* src/comp.c (maybe_defer_native_compilation): Use above new
defun.  (Bug#44676)

1 files changed, 3 insertions, 3 deletions

diff --git a/src/comp.c b/src/comp.c
index 6ddfad528b4..99560cc13a1 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -4677,13 +4677,13 @@ maybe_defer_native_compilation (Lisp_Object function_name,
       /* Comp already loaded.  */
       if (!NILP (delayed_sources))
         {
-          CALLN (Ffuncall, intern_c_string ("native-compile-async"),
+          CALLN (Ffuncall, intern_c_string ("native--compile-async"),
                  delayed_sources, Qnil, Qlate);
           delayed_sources = Qnil;
         }
       Fputhash (function_name, definition, Vcomp_deferred_pending_h);
-      CALLN (Ffuncall, intern_c_string ("native-compile-async"), src, Qnil,
-             Qlate);
+      CALLN (Ffuncall, intern_c_string ("native--compile-async"),
+             src, Qnil, Qlate);
     }
   else
     {