method ident : ident -> 'self_type =
function
| IdAcc (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#ident _x_i1 in let o = o#ident _x_i2 in o
| IdApp (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#ident _x_i1 in let o = o#ident _x_i2 in o
| IdLid (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| IdUid (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| IdAnt (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o