diff options
| author |  Peter McGoron
| 2025-11-02 10:05:36 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2025-11-02 10:05:36 -0500 |
| commit | 3a713033dfe313802d183f5419ff042fa6ae2fe8 (patch) | |
| tree | d290dc2c02f786a1dab1b2e7af0df93dd1173a50 /lib/cuprate/rewriters | |
| parent | group hooks (diff) | |
make macro generators, test on chibi. Currently broken in CHICKEN-5 due to a bug in compiled syntax-rules macros
Diffstat (limited to '')
| -rw-r--r-- | lib/cuprate/rewriters.sld | 7 | ||||
| -rw-r--r-- | lib/cuprate/rewriters/chicken.sld (renamed from lib/cuprate/rewriters.chicken.sld) | 2 | ||||
| -rw-r--r-- | lib/cuprate/rewriters/foment.sld (renamed from lib/cuprate/rewriters.foment.sld) | 2 | ||||
| -rw-r--r-- | lib/cuprate/rewriters/r7rs.sld (renamed from lib/cuprate/rewriters.r7rs.sld) | 10 |
4 files changed, 14 insertions, 7 deletions
diff --git a/lib/cuprate/rewriters.sld b/lib/cuprate/rewriters.sld new file mode 100644 index 0000000..a375cc8 --- /dev/null +++ b/lib/cuprate/rewriters.sld @@ -0,0 +1,7 @@ +(define-library (cuprate rewriters) + (import (scheme base)) + (export rewriters rewrite) + (cond-expand + (chicken-5 (import (cuprate rewriters chicken))) + (foment (import (cuprate rewriters foment))) + (else (import (cuprate rewriters r7rs)))))
\ No newline at end of file diff --git a/lib/cuprate/rewriters.chicken.sld b/lib/cuprate/rewriters/chicken.sld index 82a275c..f92f998 100644 --- a/lib/cuprate/rewriters.chicken.sld +++ b/lib/cuprate/rewriters/chicken.sld @@ -1,4 +1,4 @@ -(define-library (cuprate rewriters) +(define-library (cuprate rewriters chicken) (import (scheme base) (scheme write) (chicken memory representation) (chicken condition)) diff --git a/lib/cuprate/rewriters.foment.sld b/lib/cuprate/rewriters/foment.sld index 24c26d8..6f88ea5 100644 --- a/lib/cuprate/rewriters.foment.sld +++ b/lib/cuprate/rewriters/foment.sld @@ -1,4 +1,4 @@ -(define-library (cuprate rewriters) +(define-library (cuprate rewriters foment) (import (scheme base) (only (foment base) error-object-type diff --git a/lib/cuprate/rewriters.r7rs.sld b/lib/cuprate/rewriters/r7rs.sld index 3996db6..b231f81 100644 --- a/lib/cuprate/rewriters.r7rs.sld +++ b/lib/cuprate/rewriters/r7rs.sld @@ -1,12 +1,12 @@ -(define-library (cuprate rewriters) +(define-library (cuprate rewriters r7rs) (import (scheme base)) - (export rewriiters rewrite) + (export rewriters rewrite) (begin (define (default-on-pair pair) - (cons (test-rewrite (car pair)) - (test-rewrite (cdr pair)))) + (cons (rewrite (car pair)) + (rewrite (cdr pair)))) (define (default-on-vector vec) - (vector-map test-rewrite vec)) + (vector-map rewrite vec)) (define (default-on-error error) (let ((msg (error-object-message error)) (irritants (error-object-irritants error))) |