diff options
| author | herbelin | 2008-04-24 14:37:20 +0000 |
|---|---|---|
| committer | herbelin | 2008-04-24 14:37:20 +0000 |
| commit | dd693ba7f6622ea14c11cbae4eb258e06a852b7e (patch) | |
| tree | 2962d25e22f45d83a7a1b6eaa9658b5c1cb07ac7 | |
| parent | 15cb0cac262dd004c9d61377807a9e9df824cb64 (diff) | |
Remplacement de l'appel à interp_constr pour globaliser une constante
par un appel à global_reference (ce qui évite au passage d'activer le
glob dumping).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10845 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/funind/tacinv.ml4 | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/contrib/funind/tacinv.ml4 b/contrib/funind/tacinv.ml4 index 5d19079b3b..4dc4f1fd3f 100644 --- a/contrib/funind/tacinv.ml4 +++ b/contrib/funind/tacinv.ml4 @@ -62,9 +62,6 @@ let id_of_name = function let string_of_name nme = string_of_id (id_of_name nme) (*end debugging *) -(* Interpretation of constr's *) -let constr_of c = Constrintern.interp_constr Evd.empty (Global.env()) c - (*s specific manipulations on constr *) let lift1_leqs leq= List.map @@ -817,7 +814,7 @@ let buildFunscheme fonc mutflist = let declareFunScheme f fname mutflist = let _ = prstr "Recherche du perincipe...\n" in let id_to_cstr id = - try constr_of_id (Global.env()) id + try global_reference id with Not_found -> error (string_of_id id ^ " not found in the environment") in let flist = if mutflist=[] then [f] else mutflist in |