From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 6 May 2017 21:53:46 +0000 (-0700)
Subject: Fix typo in cached handler sets.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~73
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=40c3688ecb0916a0039374837e1190e6823d6c41;p=mit-scheme.git

Fix typo in cached handler sets.
---

diff --git a/src/runtime/predicate-dispatch.scm b/src/runtime/predicate-dispatch.scm
index 4096a717e..d4ad3b900 100644
--- a/src/runtime/predicate-dispatch.scm
+++ b/src/runtime/predicate-dispatch.scm
@@ -252,8 +252,8 @@ USA.
 	((set-default-handler!) set-default-handler!)
         (else (delegate operator))))))
 
-(define (cached-most-specific-handler-set)
-  (cached-handler-set (most-specific-handler-set) object->tag))
+(define (cached-most-specific-handler-set default-handler)
+  (cached-handler-set (most-specific-handler-set default-handler) object->tag))
 
-(define (cached-chaining-handler-set)
-  (cached-handler-set (chaining-handler-set) object->tag))
\ No newline at end of file
+(define (cached-chaining-handler-set default-handler)
+  (cached-handler-set (chaining-handler-set default-handler) object->tag))
\ No newline at end of file