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/gauche.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/gauche.sld | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/cuprate/implementation/gauche.sld b/lib/cuprate/implementation/gauche.sld index 627ff5c..f057527 100644 --- a/lib/cuprate/implementation/gauche.sld +++ b/lib/cuprate/implementation/gauche.sld @@ -1,9 +1,13 @@ (define-library (cuprate implementation gauche) - (import (scheme base) (scheme show) (srfi 225)) + (import (scheme base) (scheme show) (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))) (define default-test-dto eqv-alist-dto) - (define (alist->default-dictionary x) x)))
\ No newline at end of file + (define (alist->default-dictionary x) x) + (define implementation-rewriters '())))
\ No newline at end of file |