move struct/union environment to ctype.ml