let is_unknown_location loc =
  (fst loc).Lexing.pos_lnum = 0