Add set! and get-current-environment.