diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-03-02 17:49:38 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-03-02 17:49:38 +0000 |
| commit | dc1f525d12219a43648c449f034fb319bc6c1e7a (patch) | |
| tree | f80b2aee7b517f9987dba10f745a8fa1242e435d /checker/check_stat.ml | |
| parent | 95dcebe76caf6a93289e484995760ec94111c7c8 (diff) | |
porting r11900 11905 and 11953 to trunk
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11954 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/check_stat.ml')
| -rw-r--r-- | checker/check_stat.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/checker/check_stat.ml b/checker/check_stat.ml index 963665946..6ea153a3a 100644 --- a/checker/check_stat.ml +++ b/checker/check_stat.ml @@ -55,7 +55,7 @@ let print_context env = env_stratification= {env_universes=univ; env_engagement=engt}} = env in msgnl(hov 0 - (str"CONTEXT SUMMARY" ++ fnl() ++ + (fnl() ++ str"CONTEXT SUMMARY" ++ fnl() ++ str"===============" ++ fnl() ++ fnl() ++ str "* " ++ hov 0 (pr_engt engt ++ fnl()) ++ fnl() ++ str "* " ++ hov 0 (pr_ax csts) ++ @@ -65,5 +65,3 @@ let print_context env = let stats () = print_context (Safe_typing.get_env()); print_memory_stat () - -let _ = at_exit stats |