(define-library (cuprate implementation chicken)
  (import (scheme base) (chicken pretty-print)
          (srfi 128) (srfi 146 hash) (srfi 225)
          (chicken memory representation)
          (chicken condition))
  (export pretty-print default-test-dto
          alist->default-dictionary
          make-eq-map implementation-rewriters)
  (include "alist-eq-map.scm")
  (begin
    (define default-test-dto hash-mapping-dto)
    (define (alist->default-dictionary x)
      (alist->hashmap (make-default-comparator) x))
    (define (default-on-condition rewrite cond)
      (map rewrite (condition->list cond)))
    (define implementation-rewriters
      (list (cons condition? default-on-condition)))))