start moving implementation-dependent code into separate libraries

1 files changed, 8 insertions, 23 deletions

diff --git a/lib/cuprate.sld b/lib/cuprate.sld
index a23f55a..05d9bf6 100644
--- a/lib/cuprate.sld
+++ b/lib/cuprate.sld
@@ -30,6 +30,14 @@
    with-test-group-cleanup
    test-exit
    pretty-print)
+  (cond-expand
+    (chicken-5 (import (cuprate implementation chicken)))
+    (gauche (import (cuprate implementation gauche)))
+    (foment (import (cuprate implementation foment)))
+    (chibi (import (cuprate implementation chibi)))
+    (skint (import (cuprate implementation skint)))
+    (sagittarius (import (cuprate implementation sagittarius)))
+    (else (import (cuprate implementation r7rs))))
   (begin
     (define-record-type <test-info>
       (wrap-test-info dict exited?)
@@ -40,27 +48,4 @@
   (cond-expand
     ((or foment chicken-5) (include "cuprate.simple-define-test-application.scm"))
     (else (include "cuprate.define-test-application.scm")))
-  ;; Pretty printing
-  (cond-expand
-    (chicken (import (only (chicken pretty-print) pretty-print)))
-    ((or foment chibi) (import (srfi 166))
-                           (begin (define (pretty-print obj)
-                                    (show #t (pretty obj))
-                                    (newline))))
-    (gauche (import (scheme show))
-            (begin (define (pretty-print obj)
-                     (show #t (pretty obj)))))
-    (else (begin (define (pretty-print x)
-                   (write x)
-                   (newline)))))
-  ;; Better containers for the test info than alists, if available.
-  (cond-expand
-    ((or chicken skint) (import (srfi 128) (srfi 146 hash))
-        (begin
-          (define default-test-dto hash-mapping-dto)
-          (define (alist->default-dictionary x)
-            (alist->hashmap (make-default-comparator) x))))
-    (else (begin
-            (define default-test-dto eqv-alist-dto)
-            (define (alist->default-dictionary x) x))))
   (include "cuprate-impl.scm"))
\ No newline at end of file