blob: 5ecf3145de3ccf31bf727a971b30559ee71ab434 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(define-library (cuprate implementation skint)
(import (scheme base) (srfi 128) (srfi 146 hash) (scheme write)
(srfi 225))
(export pretty-print default-test-dto
alist->default-dictionary
make-eq-map implementation-rewriters)
(include "alist-eq-map.scm")
(begin
(define (pretty-print obj)
(write obj)
(newline))
(define default-test-dto hash-mapping-dto)
(define (alist->default-dictionary x)
(alist->hashmap (make-default-comparator) x))
(define implementation-rewriters '())))
|
