aboutsummaryrefslogtreecommitdiffhomepage
path: root/kernel/typeops.ml
diff options
context:
space:
mode:
authorGravatar Emilio Jesus Gallego Arias <e+git@x80.org>2017-12-05 12:34:36 +0100
committerGravatar Emilio Jesus Gallego Arias <e+git@x80.org>2017-12-09 19:01:46 +0100
commitd0f89f8c59cda2e7e74fec693e511e910fbc0434 (patch)
treed72a404ba6d47f7b29b80775c0731cd765d448dc /kernel/typeops.ml
parent319a3c230e9f9ec5a8a5bea9e07b6b8d17444ac9 (diff)
[lib] Rename Profile to CProfile
New module introduced in OCaml 4.05 I think, can create problems when linking with the OCaml toplevel for `Drop`.
Diffstat (limited to 'kernel/typeops.ml')
-rw-r--r--kernel/typeops.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml
index 4ccef5c38..4a935f581 100644
--- a/kernel/typeops.ml
+++ b/kernel/typeops.ml
@@ -435,8 +435,8 @@ let infer env constr =
let infer =
if Flags.profile then
- let infer_key = Profile.declare_profile "Fast_infer" in
- Profile.profile2 infer_key (fun b c -> infer b c)
+ let infer_key = CProfile.declare_profile "Fast_infer" in
+ CProfile.profile2 infer_key (fun b c -> infer b c)
else (fun b c -> infer b c)
let assumption_of_judgment env {uj_val=c; uj_type=t} =