diff options
Diffstat (limited to 'toplevel/classes.ml')
| -rw-r--r-- | toplevel/classes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/classes.ml b/toplevel/classes.ml index a5805b637..21838bf68 100644 --- a/toplevel/classes.ml +++ b/toplevel/classes.ml @@ -221,7 +221,7 @@ let new_instance ?(abstract=false) ?(global=false) ctx (instid, bk, cl) props in let (loc, mid) = get_id loc_mid in List.iter (fun (n, _, x) -> - if name_eq n (Name mid) then + if Name.equal n (Name mid) then Option.iter (fun x -> Dumpglob.add_glob loc (ConstRef x)) x) k.cl_projs; c :: props, rest' |