removed decl-env from compound-procedure