diff options
| author | Po Lu <luangruo@yahoo.com> | 2021-12-12 11:15:00 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2021-12-12 11:15:00 +0800 |
| commit | 0e69753ac142ef0f45ec14c8281ec4f76aea723b (patch) | |
| tree | 2f53ce6aa6f45bbb2876f54bdeb51d7c0b7433e4 /test/lisp/emacs-lisp/bytecomp-tests.el | |
| parent | b9c1e1d73bbaf9228867dad2885ca6de53a3175f (diff) | |
| parent | ff9360f4da351d25f1f9fb1ed9a78ce9db321ac4 (diff) | |
| download | emacs-0e69753ac142ef0f45ec14c8281ec4f76aea723b.tar.gz emacs-0e69753ac142ef0f45ec14c8281ec4f76aea723b.tar.bz2 emacs-0e69753ac142ef0f45ec14c8281ec4f76aea723b.zip | |
Merge remote-tracking branch 'origin/master' into feature/pgtk
Diffstat (limited to 'test/lisp/emacs-lisp/bytecomp-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index 7e51f820b70..a442eb473be 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -686,6 +686,12 @@ inner loops respectively." (let* ((x 'a)) (list x (funcall g) (funcall h))))))) (funcall (funcall f 'b))) + + ;; Test constant-propagation of access to captured variables. + (let* ((x 2) + (f (lambda () + (let ((y x)) (list y 3 y))))) + (funcall f)) ) "List of expressions for cross-testing interpreted and compiled code.") |