diff options
| author | sacerdot | 2004-12-07 19:48:17 +0000 |
|---|---|---|
| committer | sacerdot | 2004-12-07 19:48:17 +0000 |
| commit | 7d37a17370cfdfcc13afde93f5943ae53ea4d599 (patch) | |
| tree | a091d8593d4fd110b4fe5612d9d300705abe84a9 /parsing/printer.ml | |
| parent | 22cb4d34d7f67eb98c737b076a4ecbbf800bdc55 (diff) | |
* added subst_evaluable_reference
* the Unfold hints of auto/eauto now use evaluable_global_references in place
of global_references
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6428 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/printer.ml')
| -rw-r--r-- | parsing/printer.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index dcaac5697b..84734351f6 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -136,6 +136,11 @@ let pr_existential env ev = prterm_env env (mkEvar ev) let pr_inductive env ind = prterm_env env (mkInd ind) let pr_constructor env cstr = prterm_env env (mkConstruct cstr) let pr_global = pr_global Idset.empty +let pr_evaluable_reference ref = + let ref' = match ref with + | EvalConstRef const -> ConstRef const + | EvalVarRef sp -> VarRef sp in + pr_global ref' let pr_rawterm t = if !Options.v7 then gentermpr (Termast.ast_of_rawconstr t) |