diff options
| author |  Peter McGoron
| 2025-11-02 13:06:51 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2025-11-02 13:06:51 -0500 |
| commit | 4359571add4124b304b74e10f27dd567d0a82774 (patch) | |
| tree | 84744c1d67d820e63718d0d938716d116ecd6cb5 /lib/cuprate/rewriters | |
| parent | make macro generators, test on chibi. Currently broken in CHICKEN-5 due to a ... (diff) | |
add hack to support foment and CHICKEN 5.3.0
Diffstat (limited to 'lib/cuprate/rewriters')
| -rw-r--r-- | lib/cuprate/rewriters/foment.sld | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/cuprate/rewriters/foment.sld b/lib/cuprate/rewriters/foment.sld index 6f88ea5..248e2ef 100644 --- a/lib/cuprate/rewriters/foment.sld +++ b/lib/cuprate/rewriters/foment.sld @@ -7,18 +7,18 @@ (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))) - `(error (type ,(test-rewrite (error-object-type error))) - (who ,(test-rewrite (error-object-who error))) - (kind ,(test-rewrite (error-object-kind error))) - (msg ,(test-rewrite (error-object-message error))) - (irritants ,@(map test-rewrite (error-object-irritants error)))))) + `(error (type ,(rewrite (error-object-type error))) + (who ,(rewrite (error-object-who error))) + (kind ,(rewrite (error-object-kind error))) + (msg ,(rewrite (error-object-message error))) + (irritants ,@(map rewrite (error-object-irritants error)))))) (define rewriters (make-parameter `((,pair? . ,default-on-pair) (,vector? . ,default-on-vector) |