let rename src dst =
  try Sys.rename src dst
  with
  | e ->
      error ~opn: "rename" ~fn: (Printf.sprintf "src=%S dst=%S" src dst) ~e