Commit 01a513bf authored by Mattias Engdegård's avatar Mattias Engdegård
Browse files

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.
parent 0334fa05
Pipeline #10253 passed with stages
in 65 minutes and 11 seconds
......@@ -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)
......
......@@ -437,6 +437,13 @@
(/ 1 0)
(arith-error x))))
(list x y))
(funcall
(condition-case x
(/ 1 0)
(arith-error (prog1 (lambda (y) (+ y x))
(setq x 10))))
4)
)
"List of expressions for cross-testing interpreted and compiled code.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment