* lisp/emacs-lisp/comp.el (native-compile): Fix free function compilation.

This commit is contained in:
Andrea Corallo 2020-08-23 12:36:07 +02:00
parent 6088d19959
commit 337367a733

View file

@ -2654,11 +2654,11 @@ Return the compilation unit file name."
(byte-compile-debug t) (byte-compile-debug t)
(comp-ctxt (comp-ctxt
(make-comp-ctxt (make-comp-ctxt
:output (comp-el-to-eln-filename (if (symbolp function-or-file) :output (if (symbolp function-or-file)
(symbol-name function-or-file) (make-temp-file (symbol-name function-or-file) nil ".eln")
function-or-file) (comp-el-to-eln-filename function-or-file
(when byte-native-for-bootstrap (when byte-native-for-bootstrap
(car (last comp-eln-load-path)))) (car (last comp-eln-load-path)))))
:with-late-load with-late-load))) :with-late-load with-late-load)))
(comp-log "\n \n" 1) (comp-log "\n \n" 1)
(condition-case err (condition-case err