diff options
| author |  Peter McGoron
| 2025-11-04 08:24:27 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2025-11-04 08:24:27 -0500 |
| commit | f1c3054215f58b4a4cca3a7716993c273c87ca74 (patch) | |
| tree | 1ee2cad102f87ff65f5ef12eda019c79110792a0 /lib/cuprate/implementation/skint.sld | |
| parent | start moving implementation-dependent code into separate libraries (diff) | |
move rewriters to implementation file, make rewriter cycle-detecting
Diffstat (limited to '')
| -rw-r--r-- | lib/cuprate/implementation/skint.sld | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/cuprate/implementation/skint.sld b/lib/cuprate/implementation/skint.sld index b2ce921..5ecf314 100644 --- a/lib/cuprate/implementation/skint.sld +++ b/lib/cuprate/implementation/skint.sld @@ -1,13 +1,15 @@ (define-library (cuprate implementation skint) (import (scheme base) (srfi 128) (srfi 146 hash) (scheme write) - (srfi 225) - ) + (srfi 225)) (export pretty-print default-test-dto - alist->default-dictionary) + alist->default-dictionary + make-eq-map implementation-rewriters) + (include "alist-eq-map.scm") (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 + (alist->hashmap (make-default-comparator) x)) + (define implementation-rewriters '())))
\ No newline at end of file |