blob: f3a0be0a8dac78838c69ff7bd05a160613ea9ef6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(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)))))
|
