diff options
| author | herbelin | 2003-09-12 14:41:39 +0000 |
|---|---|---|
| committer | herbelin | 2003-09-12 14:41:39 +0000 |
| commit | 53d23f52cd28c1373e784c278c8455cf9fa4eb67 (patch) | |
| tree | fa4a9d60f052df1f400af1589e568ef0ed11ef45 /proofs | |
| parent | 893231ce35ba826efe64e4601ae0af32f97ba575 (diff) | |
Déplacement de Declare juste à la fin de interp pour pouvoir accéder à interp
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4365 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/tacmach.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/tacmach.ml b/proofs/tacmach.ml index 51dd1e59da..3de476b172 100644 --- a/proofs/tacmach.ml +++ b/proofs/tacmach.ml @@ -78,7 +78,7 @@ let pf_interp_type gls c = let evc = project gls in Constrintern.interp_type evc (pf_env gls) c -let pf_global gls id = Declare.construct_reference (Some (pf_hyps gls)) id +let pf_global gls id = construct_reference (pf_hyps gls) id let pf_parse_const gls = compose (pf_global gls) id_of_string |