Mark intentionally ignored variables as such.

diff --git a/tests/runtime/test-genmult.scm b/tests/runtime/test-genmult.scm
index a21323f1f30fe4ab1ea0f5c5c1d14091ed92a83d..5eb50b7a355d49b9c259c0bb75ae01cde19297fa 100644 (file)
--- a/tests/runtime/test-genmult.scm
+++ b/tests/runtime/test-genmult.scm
@@ -34,16 +34,18 @@ USA.
     ;; Bug exhibited itself in the face of a default generator.
     (set-generic-procedure-default-generator!
      generic
-     (lambda _ (lambda _ 'not-specialised)))
+     (lambda _ _ (lambda _ _ 'not-specialised)))
     (assert-equal (generic #\a) 'not-specialised)
     ;; Add some named generators (for easier removal).
     (define (bool-generator p tags)
+      p                                 ;ignore
       (if (equal? tags (list (built-in-dispatch-tag 'boolean)))
           (lambda (x) (cons 'boolean x))
           #f))
     (add-generic-procedure-generator generic bool-generator)
     (assert-equal (generic #t) '(boolean . #t))
     (define (fixnum-generator p tags)
+      p                                 ;ignore
       (if (equal? tags (list (built-in-dispatch-tag 'fixnum)))
           (lambda (x) (cons 'fixnum x))
           #f))