(define-library (cuprate implementation sagittarius)
  (import (scheme base) (scheme format) (srfi 146 hash) (srfi 225)
          (scheme hash-table) (scheme comparator))
  (export pretty-print default-test-dto
          alist->default-dictionary
          make-eq-map implementation-rewriters)
  (include "srfi-125-eq-map.scm")
  (begin
    (define (pretty-print obj)
      (show #t (pretty obj)))
    (define implementation-rewriters '()))
  (cond-expand
    ;; Sagittarius has SRFI-146 hashmaps. If the full SRFI-225 is loaded
    ;; (which is hackily checked by checking if micro-srfi-225 is NOT
    ;; loadable) then use them.
    ((library (micro-srfi-225))
     (begin
       (define default-test-dto eqv-alist-dto)
       (define (alist->default-dictionary x) x)))
    (else
     (begin
       (define default-test-dto hash-mapping-dto)
       (define (alist->default-dictionary x)
         (alist->hashmap (make-default-comparator) x))))))