diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/subtyping.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/subtyping.ml b/kernel/subtyping.ml index 98ec21eaaa..3f153ac244 100644 --- a/kernel/subtyping.ml +++ b/kernel/subtyping.ml @@ -310,14 +310,14 @@ and check_signatures cst env (msid1,sig1) (msid2,sig2') = subst_signature_msid msid2 mp1 sig2' with | Circularity l -> - error_circularity_in_subtyping l (debug_string_of_msid msid1) (debug_string_of_msid msid2) in + error_circularity_in_subtyping l (string_of_msid msid1) (string_of_msid msid2) in let map1 = make_label_map mp1 sig1 in let check_one_body cst (l,spec2) = let info1 = try Labmap.find l map1 with - Not_found -> error_no_such_label_sub l (debug_string_of_msid msid1) (debug_string_of_msid msid2) + Not_found -> error_no_such_label_sub l (string_of_msid msid1) (string_of_msid msid2) in match spec2 with | SPBconst cb2 -> |