blob: 2cb7fddcb48ff66a934250afd867b3dd10cf3fed (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
(define-library (cuprate implementation chibi)
(import (scheme base) (srfi 125) (srfi 166) (srfi 225)
(srfi 128))
(export pretty-print default-test-dto
alist->default-dictionary
make-eq-map implementation-rewriters)
(include "srfi-125-eq-map.scm")
(cond-expand
((and (library (srfi 146 hash))
(not (library (micro-srfi-225))))
(import (srfi 146 hash))
(begin
(define default-test-dto hash-mapping-dto)
(define (alist->default-dictionary x)
(alist->hashmap (make-default-comparator) x))))
(else
(begin
(define default-test-dto eqv-alist-dto)
(define (alist->default-dictionary x) x))))
(begin
(define (pretty-print obj)
(show #t (pretty obj)))
(define implementation-rewriters '())))
|
