(define-library (cuprate implementation chibi)
  (import (scheme base) (srfi 125) (srfi 166) (srfi 225)
          (srfi 128))
  (export pretty-print default-test-dto
          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 implementation-rewriters '())))