From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 7 Jan 2018 04:35:57 +0000 (-0500)
Subject: Fix compiler warning.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~410
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6377777265e20fc07eabbc3192ed7a8e671689b6;p=mit-scheme.git

Fix compiler warning.
---

diff --git a/tests/runtime/test-predicate-dispatch.scm b/tests/runtime/test-predicate-dispatch.scm
index cfc17e29f..016edfde8 100644
--- 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)))