From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 7 Jan 2018 04:48:55 +0000 (-0500)
Subject: Tweak.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~408
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=96726a7ba75267e770641226d90647ad239813bc;p=mit-scheme.git

Tweak.
---

diff --git a/src/runtime/predicate-dispatch.scm b/src/runtime/predicate-dispatch.scm
index 1867989ca..8d767dc89 100644
--- 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