diff options
| author | ppedrot | 2013-04-29 16:02:46 +0000 |
|---|---|---|
| committer | ppedrot | 2013-04-29 16:02:46 +0000 |
| commit | 943e6b23229b5eed2fb8265089563ce0a25b9b44 (patch) | |
| tree | 803aa037f3413c21e76650c62e7ea9173ba3c918 /printing | |
| 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 'printing')
| -rw-r--r-- | printing/prettyp.mli | 2 | ||||
| -rw-r--r-- | printing/printer.ml | 3 | ||||
| -rw-r--r-- | printing/printer.mli | 1 |
3 files changed, 2 insertions, 4 deletions
diff --git a/printing/prettyp.mli b/printing/prettyp.mli index 2747abe604..1bf8c6ab3c 100644 --- a/printing/prettyp.mli +++ b/printing/prettyp.mli @@ -8,7 +8,7 @@ open Pp open Names -open Sign +open Context open Term open Environ open Reductionops diff --git a/printing/printer.ml b/printing/printer.ml index 27266cfe12..5d63d179db 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -12,7 +12,6 @@ open Util open Names open Term open Vars -open Sign open Context open Environ open Globnames @@ -245,7 +244,7 @@ let pr_named_context_of env = hv 0 (prlist_with_sep (fun _ -> ws 2) (fun x -> x) psl) let pr_named_context env ne_context = - hv 0 (Sign.fold_named_context + hv 0 (Context.fold_named_context (fun d pps -> pps ++ ws 2 ++ pr_var_decl env d) ne_context ~init:(mt ())) diff --git a/printing/printer.mli b/printing/printer.mli index 55058ae164..fea8c06735 100644 --- a/printing/printer.mli +++ b/printing/printer.mli @@ -12,7 +12,6 @@ open Libnames open Globnames open Term open Context -open Sign open Environ open Glob_term open Pattern |