From: Taylor R Campbell <campbell@mumble.net>
Date: Mon, 2 Jan 2017 15:46:39 +0000 (+0000)
Subject: Mark intentionally ignored variables as such.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~239
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ad3060cd4f49d07427cdabc0f819a12022a29594;p=mit-scheme.git

Mark intentionally ignored variables as such.
---

diff --git a/tests/runtime/test-genmult.scm b/tests/runtime/test-genmult.scm
index a21323f1f..5eb50b7a3 100644
--- 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))