Tweak.

diff --git a/src/runtime/predicate-dispatch.scm b/src/runtime/predicate-dispatch.scm
index 1867989caaf6fbd26bec4a5f5334559a845f3f21..8d767dc89a09a940981f9ad3fa6c3a9a76613eae 100644 (file)
--- a/src/runtime/predicate-dispatch.scm
+++ b/src/runtime/predicate-dispatch.scm
@@ -214,7 +214,7 @@ USA.
 (define most-specific-handler-set
   (make-subsetting-handler-set
    (lambda (handlers get-default-handler)
-     get-default-handler
+     (declare (ignore get-default-handler))
      (car handlers))))
 
 (define chaining-handler-set