Really get rid of magic...
This commit is contained in:
parent
7de7043a74
commit
6bdb959204
@ -248,9 +248,8 @@ end = struct
|
|||||||
|
|
||||||
let empty = Empty
|
let empty = Empty
|
||||||
|
|
||||||
(* Is there a better way to do ? *)
|
let equal (x:not_empty t) (y:not_empty t) =
|
||||||
let equal (x:'a t) (y:'b t) =
|
x == y
|
||||||
(Obj.magic x) == (Obj.magic y)
|
|
||||||
|
|
||||||
let fast_partial_equal = equal
|
let fast_partial_equal = equal
|
||||||
|
|
||||||
@ -330,8 +329,8 @@ end = struct
|
|||||||
| _, _ ->
|
| _, _ ->
|
||||||
false
|
false
|
||||||
|
|
||||||
let fast_partial_equal (x:'a t) (y:'b t) =
|
let fast_partial_equal (x:not_empty t) (y:not_empty t) =
|
||||||
(Obj.magic x) == (Obj.magic y)
|
x == y
|
||||||
|
|
||||||
end [@@inline]
|
end [@@inline]
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user