(cond-expand
  (chicken
   (include "impl/chicken.scm"))
  (guile
   (install-r7rs!)
   (include "impl/guile.scm")
   (include "extras.scm")
   (export! append for-each map
            list-append list-for-each list-map
            ref copy
            atom?
            read-port read-port-chunk-size
            defined?
            with-output-to-string with-input-from-string
            displayed ->string written
            print))
  (gambit
   (include "impl/gambit.scm"))
  (r7rs
   (display "R7RS!\n")
   (define-library (chicanery)
     (include "impl/r7rs.scm")))
  (else (exit #f)))