aboutsummaryrefslogtreecommitdiffstats
path: root/lib/cuprate/rewriters/r7rs.sld
diff options
context:
space:
mode:
authorGravatar Peter McGoron 2025-11-02 10:05:36 -0500
committerGravatar Peter McGoron 2025-11-02 10:05:36 -0500
commit3a713033dfe313802d183f5419ff042fa6ae2fe8 (patch)
treed290dc2c02f786a1dab1b2e7af0df93dd1173a50 /lib/cuprate/rewriters/r7rs.sld
parentgroup 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/r7rs.sld (renamed from lib/cuprate/rewriters.r7rs.sld)10
1 files changed, 5 insertions, 5 deletions
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)))