method expr : expr -> 'self_type =
function
| ExNil _x -> let o = o#loc _x in o
| ExId (_x, _x_i1) ->
let o = o#loc _x in let o = o#ident _x_i1 in o
| ExAcc (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#expr _x_i1 in let o = o#expr _x_i2 in o
| ExAnt (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| ExApp (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#expr _x_i1 in let o = o#expr _x_i2 in o
| ExAre (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#expr _x_i1 in let o = o#expr _x_i2 in o
| ExArr (_x, _x_i1) ->
let o = o#loc _x in let o = o#expr _x_i1 in o
| ExSem (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#expr _x_i1 in let o = o#expr _x_i2 in o
| ExAsf _x -> let o = o#loc _x in o
| ExAsr (_x, _x_i1) ->
let o = o#loc _x in let o = o#expr _x_i1 in o
| ExAss (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#expr _x_i1 in let o = o#expr _x_i2 in o
| ExChr (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| ExCoe (_x, _x_i1, _x_i2, _x_i3) ->
let o = o#loc _x in
let o = o#expr _x_i1 in
let o = o#ctyp _x_i2 in let o = o#ctyp _x_i3 in o
| ExFlo (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| ExFor (_x, _x_i1, _x_i2, _x_i3, _x_i4, _x_i5) ->
let o = o#loc _x in
let o = o#string _x_i1 in
let o = o#expr _x_i2 in
let o = o#expr _x_i3 in
let o = o#direction_flag _x_i4 in
let o = o#expr _x_i5 in o
| ExFun (_x, _x_i1) ->
let o = o#loc _x in let o = o#match_case _x_i1 in o
| ExIfe (_x, _x_i1, _x_i2, _x_i3) ->
let o = o#loc _x in
let o = o#expr _x_i1 in
let o = o#expr _x_i2 in let o = o#expr _x_i3 in o
| ExInt (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| ExInt32 (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| ExInt64 (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| ExNativeInt (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| ExLab (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#string _x_i1 in let o = o#expr _x_i2 in o
| ExLaz (_x, _x_i1) ->
let o = o#loc _x in let o = o#expr _x_i1 in o
| ExLet (_x, _x_i1, _x_i2, _x_i3) ->
let o = o#loc _x in
let o = o#rec_flag _x_i1 in
let o = o#binding _x_i2 in let o = o#expr _x_i3 in o
| ExLmd (_x, _x_i1, _x_i2, _x_i3) ->
let o = o#loc _x in
let o = o#string _x_i1 in
let o = o#module_expr _x_i2 in
let o = o#expr _x_i3 in o
| ExMat (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#expr _x_i1 in let o = o#match_case _x_i2 in o
| ExNew (_x, _x_i1) ->
let o = o#loc _x in let o = o#ident _x_i1 in o
| ExObj (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#patt _x_i1 in
let o = o#class_str_item _x_i2 in o
| ExOlb (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#string _x_i1 in let o = o#expr _x_i2 in o
| ExOvr (_x, _x_i1) ->
let o = o#loc _x in let o = o#rec_binding _x_i1 in o
| ExRec (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#rec_binding _x_i1 in
let o = o#expr _x_i2 in o
| ExSeq (_x, _x_i1) ->
let o = o#loc _x in let o = o#expr _x_i1 in o
| ExSnd (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#expr _x_i1 in let o = o#string _x_i2 in o
| ExSte (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#expr _x_i1 in let o = o#expr _x_i2 in o
| ExStr (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| ExTry (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#expr _x_i1 in let o = o#match_case _x_i2 in o
| ExTup (_x, _x_i1) ->
let o = o#loc _x in let o = o#expr _x_i1 in o
| ExCom (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#expr _x_i1 in let o = o#expr _x_i2 in o
| ExTyc (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#expr _x_i1 in let o = o#ctyp _x_i2 in o
| ExVrn (_x, _x_i1) ->
let o = o#loc _x in let o = o#string _x_i1 in o
| ExWhi (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#expr _x_i1 in let o = o#expr _x_i2 in o
| ExOpI (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#ident _x_i1 in let o = o#expr _x_i2 in o
| ExFUN (_x, _x_i1, _x_i2) ->
let o = o#loc _x in
let o = o#string _x_i1 in let o = o#expr _x_i2 in o
| ExPkg (_x, _x_i1) ->
let o = o#loc _x in let o = o#module_expr _x_i1 in o