blob: f0575279100a49fcca2c6014d2e334303be2db32 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(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 '())))
|
