move rewriters to implementation file, make rewriter cycle-detecting

1 files changed, 0 insertions, 24 deletions

diff --git a/lib/cuprate/rewriters/r7rs.sld b/lib/cuprate/rewriters/r7rs.sld
deleted file mode 100644
index b231f81..0000000
--- a/lib/cuprate/rewriters/r7rs.sld
+++ /dev/null
@@ -1,24 +0,0 @@
-(define-library (cuprate rewriters r7rs)
-  (import (scheme base))
-  (export rewriters rewrite)
-  (begin
-    (define (default-on-pair pair)
-      (cons (rewrite (car pair))
-            (rewrite (cdr pair))))
-    (define (default-on-vector vec)
-      (vector-map rewrite vec))
-    (define (default-on-error error)
-      (let ((msg (error-object-message error))
-            (irritants (error-object-irritants error)))
-        (cons 'error (cons msg irritants))))
-    (define rewriters
-      (make-parameter `((,pair? . ,default-on-pair)
-                        (,vector? . ,default-on-vector)
-                        (,error-object? . ,default-on-error))))
-    (define (rewrite obj)
-      (let loop ((rewriters (rewriters)))
-        (cond
-          ((null? rewriters) obj)
-          (((caar rewriters) obj) ((cdar rewriters) obj))
-          (else (loop (cdr rewriters))))))))
-