From 87b644abbb799eb42e2010bba4358658867f1ff4 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Tue, 24 Jan 2017 17:41:16 -0600 Subject: [PATCH] rmeta-slot: Make equal? type hash table access the default. This is the more general case, so we may as well. * 8sync/rmeta-slot.scm (class-rmeta-ref): Set #:equals?, #:cache-set!, and #:cache-ref all to equal? type access rather than eq? by default. --- 8sync/rmeta-slot.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/8sync/rmeta-slot.scm b/8sync/rmeta-slot.scm index de85ee9..7a3fe32 100644 --- a/8sync/rmeta-slot.scm +++ b/8sync/rmeta-slot.scm @@ -101,9 +101,9 @@ (set-rmeta-slot-cache! rmeta-slot (build-cache)))) (define* (class-rmeta-ref class slot-name key - #:key (equals? eq?) - (cache-set! hashq-set!) - (cache-ref hashq-ref) + #:key (equals? equal?) + (cache-set! hash-set!) + (cache-ref hash-ref) dflt) "Search heirarchy of CLASS through the rmeta-slot named SLOT-NAME for value matching KEY. This also calls maybe-build-rmeta-slot-cache! as a side -- 2.31.1