Source file `ocaml_util.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
# 2 "ocaml_util.cppo.ml"
let warn_latin1 lexbuf =
  Location.deprecated (Location.curr lexbuf) "ISO-Latin1 characters in identifiers"

# 10 "ocaml_util.cppo.ml"
let print_loc ppf loc =
  Location.print_loc ppf loc


let print_error loc f ppf x =
  
# 16 "ocaml_util.cppo.ml"
  let error = Location.error_of_printer ~loc f x in
  Location.print_report ppf error