* comp.c (maybe_defer_native_compilation): Fix

Prevent recursive compilation while deferring compilation.

diff --git a/src/comp.c b/src/comp.c
index f5961c7d2b6c785218b1c0bd701044dba4fea95d..b563f27da8ff923edbdd712215a838d49c090e37 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -3402,8 +3402,13 @@ maybe_defer_native_compilation (Lisp_Object function_name,
     concat2 (CALL1I (file-name-sans-extension, Vload_file_name),
             build_pure_c_string (".el"));
   if (!NILP (Ffile_exists_p (src)))
-    CALLN (Ffuncall, intern_c_string ("native-compile-async"), src, Qnil,
-          Qlate);
+    {
+      comp_deferred_compilation = false;
+      Frequire (intern_c_string ("comp"), Qnil, Qnil);
+      comp_deferred_compilation = true;
+      CALLN (Ffuncall, intern_c_string ("native-compile-async"), src, Qnil,
+            Qlate);
+    }
 }
 
 \f