rename (env) to (peek-env)
pull out all env stuff to env.scm