diff options
| author | Stefan Kangas | 2021-12-05 12:54:53 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2021-12-05 12:58:04 +0100 |
| commit | d16db92cc790d0c3277e20a83030df6c4b5764e9 (patch) | |
| tree | 6ffc8b621374a35fb985842ef984d7f0a55b29c3 /test | |
| parent | 722a8ebb71227a18feeff1121d5b30122a7856e5 (diff) | |
| download | emacs-d16db92cc790d0c3277e20a83030df6c4b5764e9.tar.gz emacs-d16db92cc790d0c3277e20a83030df6c4b5764e9.zip | |
Silence byte-compiler in generator-tests.el
* test/lisp/emacs-lisp/generator-tests.el (cps-let*-shadow-empty)
(cps-let-shadow-empty, cps-let*-parallel): Silence byte-compiler.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/emacs-lisp/generator-tests.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/lisp/emacs-lisp/generator-tests.el b/test/lisp/emacs-lisp/generator-tests.el index 492c4e40853..1d2aa7ab374 100644 --- a/test/lisp/emacs-lisp/generator-tests.el +++ b/test/lisp/emacs-lisp/generator-tests.el | |||
| @@ -85,9 +85,9 @@ identical output." | |||
| 85 | (cps-testcase cps-or-empty (or)) | 85 | (cps-testcase cps-or-empty (or)) |
| 86 | 86 | ||
| 87 | (cps-testcase cps-let* (let* ((i 10)) i)) | 87 | (cps-testcase cps-let* (let* ((i 10)) i)) |
| 88 | (cps-testcase cps-let*-shadow-empty (let* ((i 10)) (let (i) i))) | 88 | (cps-testcase cps-let*-shadow-empty (let* ((i 10)) i (let ((i nil)) i))) |
| 89 | (cps-testcase cps-let (let ((i 10)) i)) | 89 | (cps-testcase cps-let (let ((i 10)) i)) |
| 90 | (cps-testcase cps-let-shadow-empty (let ((i 10)) (let (i) i))) | 90 | (cps-testcase cps-let-shadow-empty (let ((i 10)) i (let ((i nil)) i))) |
| 91 | (cps-testcase cps-let-novars (let nil 42)) | 91 | (cps-testcase cps-let-novars (let nil 42)) |
| 92 | (cps-testcase cps-let*-novars (let* nil 42)) | 92 | (cps-testcase cps-let*-novars (let* nil 42)) |
| 93 | 93 | ||
| @@ -95,7 +95,7 @@ identical output." | |||
| 95 | (let ((a 5) (b 6)) (let ((a b) (b a)) (list a b)))) | 95 | (let ((a 5) (b 6)) (let ((a b) (b a)) (list a b)))) |
| 96 | 96 | ||
| 97 | (cps-testcase cps-let*-parallel | 97 | (cps-testcase cps-let*-parallel |
| 98 | (let* ((a 5) (b 6)) (let* ((a b) (b a)) (list a b)))) | 98 | (let* ((a 5) (b 6)) a (let* ((a b) (b a)) (list a b)))) |
| 99 | 99 | ||
| 100 | (cps-testcase cps-while-dynamic | 100 | (cps-testcase cps-while-dynamic |
| 101 | (setq *cps-test-i* 0) | 101 | (setq *cps-test-i* 0) |