;;; chicanery/impl/chicken -*- geiser-scheme-implementation: chicken -*-

(module chicanery ()
  (import (scheme base)
          (scheme eval)
          (srfi 1)
          (chicken module))
  (import-for-syntax r7rs)
  (reexport (scheme base)
            (scheme case-lambda)
            (scheme char)
            (scheme complex)
            (scheme cxr)
            (scheme eval)
            (scheme file)
            (scheme inexact)
            (scheme lazy)
            (scheme load)
            (scheme process-context)
            (scheme read)
            (scheme repl)
            (scheme time)
            (scheme write))

  (define env (environment '(only chicken.base exit)))
  (##sys#current-environment (##sys#slot env 2))
  (##sys#macro-environment (filter-map
                            (lambda (e)
                              (and (list? e) e))
                            (##sys#slot env 2)))
  (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))