let errstart l =
  match !err_report with
    None -> err_report := Some (new err_report l)
  | _ -> ()