mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/comp.el (comp-final1): Clean-up unused form.

Browse Source
This commit is contained in:
Andrea Corallo 2023-09-19 10:37:33 +02:00
parent 438d71e83b
commit ea5ae08b06
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/emacs-lisp/comp.el
View File

@ -3757,13 +3757,10 @@ Prepare every function for final compilation and drive the C back-end."
(comp--compile-ctxt-to-file name)))
(defun comp-final1 ()
(let (compile-result)
(comp--init-ctxt)
(unwind-protect
(setf compile-result
(comp-compile-ctxt-to-file (comp-ctxt-output comp-ctxt)))
(and (comp--release-ctxt)
compile-result))))
(comp--init-ctxt)
(unwind-protect
(comp-compile-ctxt-to-file (comp-ctxt-output comp-ctxt))
(comp--release-ctxt)))
(defvar comp-async-compilation nil
"Non-nil while executing an asynchronous native compilation.")