diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/classops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index afb546b2d2..496a02f07d 100644 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -58,7 +58,7 @@ let cl_typ_ord t1 t2 = match t1, t2 with | CL_CONST c1, CL_CONST c2 -> Constant.CanOrd.compare c1 c2 | CL_PROJ c1, CL_PROJ c2 -> Projection.Repr.CanOrd.compare c1 c2 | CL_IND i1, CL_IND i2 -> ind_ord i1 i2 - | _ -> Pervasives.compare t1 t2 (** OK *) + | _ -> pervasives_compare t1 t2 (** OK *) module ClTyp = struct type t = cl_typ |