(use environments)

(define env
  (environment 
   (foo)
   (import chicken scheme)
   (reexport extras (only scheme begin))
   (define foo 123)))

(environment-extend! env 'bar 999)

(eval '(begin (pp foo) (pp bar)) env)