start moving implementation-dependent code into separate libraries

1 files changed, 10 insertions, 0 deletions

diff --git a/lib/cuprate/implementation/r7rs.sld b/lib/cuprate/implementation/r7rs.sld
new file mode 100644
index 0000000..0a1286f
--- /dev/null
+++ b/lib/cuprate/implementation/r7rs.sld
@@ -0,0 +1,10 @@
+(define-library (cuprate implementation r7rs)
+  (import (scheme base) (scheme write) (srfi 225))
+  (export pretty-print default-test-dto
+          alist->default-dictionary)
+  (begin
+    (define (pretty-print obj)
+      (write obj)
+      (newline))
+    (define default-test-dto eqv-alist-dto)
+    (define (alist->default-dictionary x) x)))
\ No newline at end of file