From d6d5062bbae5ee708a0b80ad9b5f400320239fcc Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Wed, 11 Sep 2019 21:56:26 +0200 Subject: [PATCH] rework comp-new-frame --- lisp/emacs-lisp/comp.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 2.39.5