diff options
| author | letouzey | 2013-07-17 15:31:38 +0000 |
|---|---|---|
| committer | letouzey | 2013-07-17 15:31:38 +0000 |
| commit | c8cb2a79223ccb9585d427764e5ca59b1c1f3c67 (patch) | |
| tree | bbe174ee5532d13319f829573f6b356836305f3a /printing/prettyp.ml | |
| parent | 3d09e39dd423d81c6af3e991d5b282ea8608646b (diff) | |
Lib.contents () instead of Lib.contents_after None
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16627 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing/prettyp.ml')
| -rw-r--r-- | printing/prettyp.ml | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/printing/prettyp.ml b/printing/prettyp.ml index bc9137edea..d7d7bd97db 100644 --- a/printing/prettyp.ml +++ b/printing/prettyp.ml @@ -547,11 +547,8 @@ let print_safe_judgment env j = (*********************) (* *) -let print_full_context () = - print_context true None (Lib.contents_after None) - -let print_full_context_typ () = - print_context false None (Lib.contents_after None) +let print_full_context () = print_context true None (Lib.contents ()) +let print_full_context_typ () = print_context false None (Lib.contents ()) let print_full_pure_context () = let rec prec = function @@ -593,7 +590,7 @@ let print_full_pure_context () = prec rest ++ pp | _::rest -> prec rest | _ -> mt () in - prec (Lib.contents_after None) + prec (Lib.contents ()) (* For printing an inductive definition with its constructors and elimination, @@ -616,7 +613,7 @@ let read_sec_context r = | [] -> [] | hd::rest -> get_cxt (hd::in_cxt) rest in - let cxt = (Lib.contents_after None) in + let cxt = Lib.contents () in List.rev (get_cxt [] cxt) let print_sec_context sec = @@ -700,7 +697,7 @@ let print_about = function (* for debug *) let inspect depth = - print_context false (Some depth) (Lib.contents_after None) + print_context false (Some depth) (Lib.contents ()) (*************************************************************************) |