From ad3060cd4f49d07427cdabc0f819a12022a29594 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Mon, 2 Jan 2017 15:46:39 +0000 Subject: [PATCH] Mark intentionally ignored variables as such. --- tests/runtime/test-genmult.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) -- 2.25.1