]> git.eshelyaron.com Git - emacs.git/commitdiff
Silence byte-compiler in generator-tests.el
authorStefan Kangas <stefan@marxist.se>
Sun, 5 Dec 2021 11:54:53 +0000 (12:54 +0100)
committerStefan Kangas <stefan@marxist.se>
Sun, 5 Dec 2021 11:58:04 +0000 (12:58 +0100)
* test/lisp/emacs-lisp/generator-tests.el (cps-let*-shadow-empty)
(cps-let-shadow-empty, cps-let*-parallel): Silence byte-compiler.

test/lisp/emacs-lisp/generator-tests.el

index 492c4e408534c35449ddf2e912cfe0189075566c..1d2aa7ab3746e4acbef90ef8149d9395efa2bb8c 100644 (file)
@@ -85,9 +85,9 @@ identical output."
 (cps-testcase cps-or-empty (or))
 
 (cps-testcase cps-let* (let* ((i 10)) i))
-(cps-testcase cps-let*-shadow-empty (let* ((i 10)) (let (i) i)))
+(cps-testcase cps-let*-shadow-empty (let* ((i 10)) i (let ((i nil)) i)))
 (cps-testcase cps-let (let ((i 10)) i))
-(cps-testcase cps-let-shadow-empty (let ((i 10)) (let (i) i)))
+(cps-testcase cps-let-shadow-empty (let ((i 10)) i (let ((i nil)) i)))
 (cps-testcase cps-let-novars (let nil 42))
 (cps-testcase cps-let*-novars (let* nil 42))
 
@@ -95,7 +95,7 @@ identical output."
   (let ((a 5) (b 6)) (let ((a b) (b a)) (list a b))))
 
 (cps-testcase cps-let*-parallel
-  (let* ((a 5) (b 6)) (let* ((a b) (b a)) (list a b))))
+  (let* ((a 5) (b 6)) (let* ((a b) (b a)) (list a b))))
 
 (cps-testcase cps-while-dynamic
   (setq *cps-test-i* 0)