(define-library (cuprate implementation gauche)
  (import (scheme base) (scheme show) (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 default-test-dto eqv-alist-dto)
    (define (alist->default-dictionary x) x)
    (define implementation-rewriters '())))