diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2023-08-08 12:05:48 +0200 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2023-08-08 12:05:48 +0200 |
| commit | 5ab53729df6ec0829536af4a7130e22b3b05ea15 (patch) | |
| tree | 052f40bfc23ab3468f5982a60aefe1f37e466a1d /test/lisp/emacs-lisp | |
| parent | 89bd65197642e4700b36c270d3abf8e4a2dffbf8 (diff) | |
| download | emacs-5ab53729df6ec0829536af4a7130e22b3b05ea15.tar.gz emacs-5ab53729df6ec0829536af4a7130e22b3b05ea15.tar.bz2 emacs-5ab53729df6ec0829536af4a7130e22b3b05ea15.zip | |
; Fix bad bytecomp-tests cases
* test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-tests--test-cases):
Repair broken test cases.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index dd0c1fe91a0..19e08e8d199 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -677,16 +677,18 @@ inner loops respectively." (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))))))) + (lambda () + (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))))))) + (lambda () + (let ((g (lambda () x)) + (h (lambda () (setq x (list x x))))) + (let* ((x 'a)) + (list x (funcall g) (funcall h)))))))) (funcall (funcall f 'b))) ;; Test constant-propagation of access to captured variables. |