Implemented (environment ...) in (scheme eval) and fixed (eval)