From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 11 Sep 2019 19:56:26 +0000 (+0200)
Subject: rework comp-new-frame
X-Git-Tag: emacs-28.0.90~2727^2~1180
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d6d5062bbae5ee708a0b80ad9b5f400320239fcc;p=emacs.git

rework comp-new-frame
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 4e3f0c91e31..17a8a7ef9f6 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -351,10 +351,10 @@ If INPUT is a string this is the file path to be compiled."
 
 (defun comp-new-frame (size)
   "Return a clean frame of meta variables of size SIZE."
-  (let ((v (make-vector size nil)))
-    (cl-loop for i below size
-             do (aset v i (make-comp-mvar :slot i)))
-    v))
+  (cl-loop with v = (make-vector size nil)
+           for i below size
+           do (aset v i (make-comp-mvar :slot i))
+           finally (return v)))
 
 (cl-defun make-comp-mvar (&key slot (constant nil const-vld) type)
   (when const-vld