blob: a9bff2d5fc781ffe4a2d53621b0e1bfbdc8f1ca4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
|
(define-library (cuprate implementation chicken)
(import (scheme base) (chicken pretty-print)
(srfi 128) (srfi 146 hash) (srfi 225))
(export pretty-print default-test-dto
alist->default-dictionary)
(begin
(define default-test-dto hash-mapping-dto)
(define (alist->default-dictionary x)
(alist->hashmap (make-default-comparator) x))))
|
