From ea5ae08b0623f091666373765d831667895c4351 Mon Sep 17 00:00:00 2001
From: Andrea Corallo <acorallo@gnu.org>
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.5