rmeta-slot: Make equal? type hash table access the default.
authorChristopher Allan Webber <cwebber@dustycloud.org>
Tue, 24 Jan 2017 23:41:16 +0000 (17:41 -0600)
committerChristopher Allan Webber <cwebber@dustycloud.org>
Tue, 24 Jan 2017 23:41:16 +0000 (17:41 -0600)
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

index de85ee9cae7d179b17ee6b04ca0a71a7036d899e..7a3fe32e00e71ebb806c8f2d4dab5d9a879addfd 100644 (file)
     (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