From: Andrea Corallo <acorallo@gnu.org>
Date: Tue, 19 Sep 2023 08:37:33 +0000 (+0200)
Subject: * lisp/emacs-lisp/comp.el (comp-final1): Clean-up unused form.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea5ae08b0623f091666373765d831667895c4351;p=emacs.git

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

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.")