let check_errors env = List.fold_left (fun _ error -> print_string ("ERROR: "^error^"\n")) () (List.rev env.errors); if List.length env.errors > 0 then raise RuntimeError.FatalExit else ()