in heads.ml, at least turn the Not_found of #2608 into assert false

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14550 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 6 insertions, 2 deletions

diff --git a/library/heads.ml b/library/heads.ml
index 8fda452c1..3f7c8877e 100644
--- a/library/heads.ml
+++ b/library/heads.ml
@@ -66,8 +66,12 @@ let _ =
       Summary.unfreeze_function = unfreeze;
       Summary.init_function = init }
 
-let variable_head id  = Evalrefmap.find (EvalVarRef id) !head_map
-let constant_head cst = Evalrefmap.find (EvalConstRef cst) !head_map
+let variable_head id  =
+  try Evalrefmap.find (EvalVarRef id) !head_map
+  with Not_found -> assert false
+let constant_head cst =
+  try Evalrefmap.find (EvalConstRef cst) !head_map
+  with Not_found -> assert false
 
 let kind_of_head env t =
   let rec aux k l t b = match kind_of_term (Reduction.whd_betaiotazeta t) with