use srfi-146 when full srfi-225 is available for chibi

1 files changed, 12 insertions, 2 deletions

diff --git a/lib/cuprate/implementation/chibi.sld b/lib/cuprate/implementation/chibi.sld
index 327568b..2cb7fdd 100644
--- a/lib/cuprate/implementation/chibi.sld
+++ b/lib/cuprate/implementation/chibi.sld
@@ -5,9 +5,19 @@
           alist->default-dictionary
           make-eq-map implementation-rewriters)
   (include "srfi-125-eq-map.scm")
+  (cond-expand
+    ((and (library (srfi 146 hash))
+          (not (library (micro-srfi-225))))
+     (import (srfi 146 hash))
+     (begin
+       (define default-test-dto hash-mapping-dto)
+       (define (alist->default-dictionary x)
+         (alist->hashmap (make-default-comparator) x))))
+    (else
+     (begin
+       (define default-test-dto eqv-alist-dto)
+       (define (alist->default-dictionary x) x))))
   (begin
     (define (pretty-print obj)
       (show #t (pretty obj)))
-    (define default-test-dto eqv-alist-dto)
-    (define (alist->default-dictionary x) x)
     (define implementation-rewriters '())))
\ No newline at end of file