diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-29 16:02:46 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-29 16:02:46 +0000 |
| commit | 943e6b23229b5eed2fb8265089563ce0a25b9b44 (patch) | |
| tree | 803aa037f3413c21e76650c62e7ea9173ba3c918 /interp | |
| parent | 4490dfcb94057dd6518963a904565e3a4a354bac (diff) | |
Merging Context and Sign.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16463 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'interp')
| -rw-r--r-- | interp/constrextern.mli | 1 | ||||
| -rw-r--r-- | interp/constrintern.ml | 4 | ||||
| -rw-r--r-- | interp/constrintern.mli | 1 | ||||
| -rw-r--r-- | interp/implicit_quantifiers.mli | 2 |
4 files changed, 3 insertions, 5 deletions
diff --git a/interp/constrextern.mli b/interp/constrextern.mli index 4cf79337c..de4b13b06 100644 --- a/interp/constrextern.mli +++ b/interp/constrextern.mli @@ -11,7 +11,6 @@ open Names open Term open Context open Termops -open Sign open Environ open Libnames open Globnames diff --git a/interp/constrintern.ml b/interp/constrintern.ml index 4e63b16fa..c7f4635c9 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -98,7 +98,7 @@ let global_reference id = let construct_reference ctx id = try - Term.mkVar (let _ = Sign.lookup_named id ctx in id) + Term.mkVar (let _ = Context.lookup_named id ctx in id) with Not_found -> global_reference id @@ -636,7 +636,7 @@ let intern_var genv (ltacvars,ntnvars) namedctx loc id = | Some id0 -> Pretype_errors.error_var_not_found_loc loc id0 with Not_found -> (* Is [id] a goal or section variable *) - let _ = Sign.lookup_named id namedctx in + let _ = Context.lookup_named id namedctx in try (* [id] a section variable *) (* Redundant: could be done in intern_qualid *) diff --git a/interp/constrintern.mli b/interp/constrintern.mli index 1fa0db911..e352c7f7a 100644 --- a/interp/constrintern.mli +++ b/interp/constrintern.mli @@ -9,7 +9,6 @@ open Names open Term open Context -open Sign open Evd open Environ open Libnames diff --git a/interp/implicit_quantifiers.mli b/interp/implicit_quantifiers.mli index 66be2ae5a..df29d0592 100644 --- a/interp/implicit_quantifiers.mli +++ b/interp/implicit_quantifiers.mli @@ -10,7 +10,7 @@ open Loc open Names open Decl_kinds open Term -open Sign +open Context open Evd open Environ open Nametab |