Silence byte-compiler slightly in tests

* test/src/comp-resources/comp-test-45603.el
(comp-test-45603--call-marked):
* test/src/comp-resources/comp-test-funcs.el
(comp-tests-discardn-f, comp-test-42360-f, comp-test-46824-1-f)
(comp-test-silly-frame2): Silence byte-compiler.

1 files changed, 5 insertions, 5 deletions

diff --git a/test/src/comp-resources/comp-test-funcs.el b/test/src/comp-resources/comp-test-funcs.el
index b3fd2bcd175..0a60f4d6cc4 100644
--- a/test/src/comp-resources/comp-test-funcs.el
+++ b/test/src/comp-resources/comp-test-funcs.el
@@ -189,7 +189,7 @@
   ;; Bnumberp
   (numberp x))
 
-(defun comp-tests-discardn-f (x)
+(defun comp-tests-discardn-f (_x)
   ;; BdiscardN
   (1+ (let ((a 1)
             (_b)
@@ -297,8 +297,8 @@
   ;; potentially use all registers and that is modifying local
   ;; variables inside condition-case.
   (let ((str-len (length str))
-	(str-width 14)
-	(ellipsis-width 3)
+        (_str-width 14)
+        (_ellipsis-width 3)
 	(idx 0)
 	(column 0)
 	(head-padding "") (tail-padding "")
@@ -489,7 +489,7 @@
 (cl-defun comp-test-46824-1-f ()
   (let ((next-repos '(1)))
     (while t
-      (let ((recipe (car next-repos)))
+      (let ((_recipe (car next-repos)))
         (cl-block loop
           (while t
             (let ((err
@@ -640,7 +640,7 @@
           (2 2))
         3))))
 
-(defun comp-test-silly-frame2 (token)
+(defun comp-test-silly-frame2 (_token)
   ;; Check robustness against dead code.
   (while c
     (cl-case c