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

fix comp-limplify-listn

Browse source
This commit is contained in:
Andrea Corallo 2019-08-03 19:42:57 +02:00 • committed by Andrea Corallo
parent bebe5a9791
commit 318c4772af
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -381,7 +381,7 @@ If NEGATED non nil negate the tested condition."
(defun comp-limplify-listn (n)
"Limplify list N."
(comp-with-sp (1- n)
(comp-with-sp (+ (comp-sp) n -1)
(comp-emit-set-call `(call Fcons
,(comp-slot)
,(make-comp-mvar :constant nil))))