diff options
| author | 2025-11-03 22:55:50 -0500 | |
|---|---|---|
| committer | 2025-11-03 22:55:50 -0500 | |
| commit | 860e3809928b6bcca55e38131e279cdcb01d8be7 (patch) | |
| tree | 66d866be9b2034394ab4427e80574377ef02e71f /lib/cuprate/implementation/skint.sld | |
| parent | considering continuations (diff) | |
start moving implementation-dependent code into separate libraries
Diffstat (limited to 'lib/cuprate/implementation/skint.sld')
| -rw-r--r-- | lib/cuprate/implementation/skint.sld | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lib/cuprate/implementation/skint.sld b/lib/cuprate/implementation/skint.sld new file mode 100644 index 0000000..b2ce921 --- /dev/null +++ b/lib/cuprate/implementation/skint.sld @@ -0,0 +1,13 @@ +(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) + (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))))
\ No newline at end of file |
