Commit e7b33dda authored by Kim Nguyễn's avatar Kim Nguyễn
Browse files

Remove old Obj usage.

parent bfa5d5bf
......@@ -131,15 +131,6 @@ let normalize_string_utf8 i j s q =
pair (Char (Chars.V.mk_int c)) (String_utf8 {i;j;str=s;tl=q})
(***** The dirty things **********)
type pair = { dummy : t; mutable pair_tl : t }
type str = { dummy1 : t; dummy2 : t; dummy3 : t; mutable str_tl : t }
(* Could optimize this function by changing the order of the fields
in String_latin1, String_utf8 *)
let set_cdr cell tl =
match cell with
| Pair ({ concat = false; _ } as r) -> r.snd <- tl
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment