mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 23:10:28 -08:00
Code Issues Projects Releases Wiki Activity

Revert "Fix closure-conversion of shadowed captured lambda-lifted vars"

Browse source 
This reverts commit 3ec8c8b3ae.

It was committed to a stable branch without prior discussion;
see bug#53071.
This commit is contained in:
Mattias Engdegård 2022-01-12 19:47:39 +01:00
parent a1ac6bd47e
commit 22ddd2ba13
3 changed files with 6 additions and 220 deletions
Download patch file Download diff file Expand all files Collapse all files

43
test/lisp/emacs-lisp/bytecomp-tests.el
View file

@ -640,49 +640,6 @@ inner loops respectively."
(f (list (lambda (x) (setq a x)))))
(funcall (car f) 3)
(list a b))
;; These expressions give different results in lexbind and dynbind modes,
;; but in each the compiler and interpreter should agree!
;; (They look much the same but come in pairs exercising both the
;; `let' and `let*' paths.)
(let ((f (lambda (x)
(lambda ()
(let ((g (lambda () x)))
(let ((x 'a))
(list x (funcall g))))))))
(funcall (funcall f 'b)))
(let ((f (lambda (x)
(lambda ()
(let ((g (lambda () x)))
(let* ((x 'a))
(list x (funcall g))))))))
(funcall (funcall f 'b)))
(let ((f (lambda (x)
(lambda ()
(let ((g (lambda () x)))
(setq x (list x x))
(let ((x 'a))
(list x (funcall g))))))))
(funcall (funcall f 'b)))
(let ((f (lambda (x)
(lambda ()
(let ((g (lambda () x)))
(setq x (list x x))
(let* ((x 'a))
(list x (funcall g))))))))
(funcall (funcall f 'b)))
(let ((f (lambda (x)
(let ((g (lambda () x))
(h (lambda () (setq x (list x x)))))
(let ((x 'a))
(list x (funcall g) (funcall h)))))))
(funcall (funcall f 'b)))
(let ((f (lambda (x)
(let ((g (lambda () x))
(h (lambda () (setq x (list x x)))))
(let* ((x 'a))
(list x (funcall g) (funcall h)))))))
(funcall (funcall f 'b)))
)
"List of expressions for cross-testing interpreted and compiled code.")