(module r7rs-env ()
  (import (scheme base)
          (scheme eval)
          (srfi 1))

  (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))))