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/sagittarius.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/sagittarius.sld | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/cuprate/implementation/sagittarius.sld b/lib/cuprate/implementation/sagittarius.sld index ba630f0..64ea883 100644 --- a/lib/cuprate/implementation/sagittarius.sld +++ b/lib/cuprate/implementation/sagittarius.sld @@ -1,10 +1,14 @@ (define-library (cuprate implementation sagittarius) - (import (scheme base) (scheme format) (srfi 146 hash) (srfi 225)) + (import (scheme base) (scheme format) (srfi 146 hash) (srfi 225) + (scheme hash-table) (scheme comparator)) (export pretty-print default-test-dto - alist->default-dictionary) + alist->default-dictionary + make-eq-map implementation-rewriters) + (include "srfi-125-eq-map.scm") (begin (define (pretty-print obj) - (show #t (pretty obj)))) + (show #t (pretty obj))) + (define implementation-rewriters '())) (cond-expand ;; Sagittarius has SRFI-146 hashmaps. If the full SRFI-225 is loaded ;; (which is hackily checked by checking if micro-srfi-225 is NOT |