mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-07 03:35:30 -05:00
use structural equality
This commit is contained in:
parent
18aed84903
commit
0a5e131ce1
1 changed files with 1 additions and 1 deletions
|
|
@ -243,7 +243,7 @@ let append_list a b = match b with
|
||||||
*)
|
*)
|
||||||
|
|
||||||
let equal eq v1 v2 =
|
let equal eq v1 v2 =
|
||||||
v1.size == v2.size
|
v1.size = v2.size
|
||||||
&&
|
&&
|
||||||
let n = v1.size in
|
let n = v1.size in
|
||||||
let rec check i =
|
let rec check i =
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue