procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

rework comp-new-frame

Browse source
This commit is contained in:
Andrea Corallo 2019-09-11 21:56:26 +02:00
parent 7edbb163b3
commit d6d5062bba
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/comp.el
View file

@ -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