blob: 0a1286f8e4c5348d66889fff2606ebf0a1c4101d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
|
(define-library (cuprate implementation r7rs)
(import (scheme base) (scheme write) (srfi 225))
(export pretty-print default-test-dto
alist->default-dictionary)
(begin
(define (pretty-print obj)
(write obj)
(newline))
(define default-test-dto eqv-alist-dto)
(define (alist->default-dictionary x) x)))
|
