diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-12 15:55:51 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-07-13 15:14:45 +0200 |
| commit | 469a9b3242891b089b4a211e96b5b568277f7fc0 (patch) | |
| tree | bd6854ea387f33192bf3d44c6d729e5d23471f49 /vernac/search.ml | |
| parent | 34bcd562cc9c8e5e6b0f3b79a15b9c55dd98813e (diff) | |
Remove the function Global.type_of_global_unsafe.
Diffstat (limited to 'vernac/search.ml')
| -rw-r--r-- | vernac/search.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/search.ml b/vernac/search.ml index 5cf6a9491..0f56f81e7 100644 --- a/vernac/search.ml +++ b/vernac/search.ml @@ -78,7 +78,7 @@ let iter_declarations (fn : global_reference -> env -> constr -> unit) = | "CONSTANT" -> let cst = Global.constant_of_delta_kn kn in let gr = ConstRef cst in - let typ = Global.type_of_global_unsafe gr in + let (typ, _) = Global.type_of_global_in_context (Global.env ()) gr in fn gr env typ | "INDUCTIVE" -> let mind = Global.mind_of_delta_kn kn in |