Biocaml 0.4-dev : Biocaml_pos.incr_line

let incr_line ?(n=1) t =

 let prev = match t.line with None -> 0 | Some x -> x in

 {t with line = Some (prev + n)}