mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 09:00:31 -08:00
Code Issues Projects Releases Wiki Activity

some renaming

Browse source
This commit is contained in:
Andrea Corallo 2019-08-11 19:08:18 +02:00 • committed by Andrea Corallo
parent ab69bb6364
commit 757a959068
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -741,7 +741,7 @@ the annotation emission."
(if (comp-args-p args)
(cl-loop for i below (comp-args-max args)
do (cl-incf (comp-sp))
do (comp-emit `(setpar ,(comp-slot) ,i)))
do (comp-emit `(set-par-to-local ,(comp-slot) ,i)))
(let ((nonrest (comp-nargs-nonrest args)))
(comp-emit-narg-prologue args-min nonrest)
(cl-incf (comp-sp) (1+ nonrest))))