Fix compiler warning.

diff --git a/tests/runtime/test-predicate-dispatch.scm b/tests/runtime/test-predicate-dispatch.scm
index cfc17e29f689c5b2c547d8f3130279e647360b7b..016edfde81ec8530c4fc6a91b14910ba01289572 100644 (file)
--- a/tests/runtime/test-predicate-dispatch.scm
+++ b/tests/runtime/test-predicate-dispatch.scm
@@ -37,6 +37,7 @@ USA.
 
     (define-predicate-dispatch-handler foo (list any-object?)
       (lambda (arg)
+       (declare (ignore arg))
         'foobar))
 
     (assert-equal (foo #f) 'foobar)))