location.ml 74 Bytes
Newer Older
1
2
3
4
type loc = int * int
exception Location of loc * exn

let noloc = (-1,-1)