80
80
(* --------------------------------------------------------------------- *)
83
let mcode2line (_,_,info,_,_) = info.Ast0.pos_info.Ast0.line_start
84
let mcode2arity (_,arity,_,_,_) = arity
83
let mcode2line (_,_,info,_,_,_) = info.Ast0.pos_info.Ast0.line_start
84
let mcode2arity (_,arity,_,_,_,_) = arity
86
86
let mcode x = x (* nothing to do ... *)