Commits

Anonymous committed aa0d0db

'[de]ser' -> '[de]ser.marshal'

Comments (0)

Files changed (1)

 
              initializer
              let self = (self :> ti _) in
-             ( uti_add_meth self "ser" &
+             ( uti_add_meth self "ser.marshal" &
                  ubox
                    (ti_abs self ti_string)
                    (fun d ->
                             self#type_name
                       ]
                    )
-             ; uti_add_meth self "deser" &
+             ; uti_add_meth self "deser.marshal" &
                  ubox
                    (ti_abs ti_string self)
                    (fun s ->
              let rec get_dests_td td u =
                match td with
                [ Simple _ -> []
-               | Dispatch_method disp -> get_dests_td (disp "ser") u
+               | Dispatch_method disp -> get_dests_td (disp "ser.marshal") u
                | Sum_type destr _constr ->
                    let (_vname, disp) = destr u in
-                   let uarr = disp "ser" in
+                   let uarr = disp "ser.marshal" in
                    get_dests_arr uarr
                | Record_type destr _utis _fields _constr ->
                    let uarrfn = destr u in