Fix typo in cconv
* lisp/emacs-lisp/cconv.el (cconv-convert): Typo. * test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-tests--test-cases): Add test case.
This commit is contained in:
parent
0334fa0532
commit
01a513bf0b
2 changed files with 8 additions and 1 deletions
|
@ -498,7 +498,7 @@ places where they originally did not directly appear."
|
|||
(let* ((class (and var (cconv--var-classification (list var) form)))
|
||||
(newenv
|
||||
(cond ((eq class :captured+mutated)
|
||||
(cons `(,var . (car-save ,var)) env))
|
||||
(cons `(,var . (car-safe ,var)) env))
|
||||
((assq var env) (cons `(,var) env))
|
||||
(t env)))
|
||||
(msg (when (eq class :unused)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue