From ea5ae08b0623f091666373765d831667895c4351 Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Tue, 19 Sep 2023 10:37:33 +0200 Subject: [PATCH] * lisp/emacs-lisp/comp.el (comp-final1): Clean-up unused form. --- lisp/emacs-lisp/comp.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index a8567c5da00..37771eb004e 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el @@ -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.") -- 2.39.2