X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Frmeta-slot.scm;h=7a3fe32e00e71ebb806c8f2d4dab5d9a879addfd;hp=de85ee9cae7d179b17ee6b04ca0a71a7036d899e;hb=87b644abbb799eb42e2010bba4358658867f1ff4;hpb=41b32934e39cb7b778e12bf8c61630acc38d2a72

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