From 40c3688ecb0916a0039374837e1190e6823d6c41 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 6 May 2017 14:53:46 -0700 Subject: [PATCH] Fix typo in cached handler sets. --- src/runtime/predicate-dispatch.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 2.25.1