diff options
author | 2009-02-19 13:13:20 +0100 | |
---|---|---|
committer | 2009-02-19 13:13:20 +0100 | |
commit | 2155252cd74c3a2d0dc0bde716ef70b1f86b8085 (patch) | |
tree | 20313deb80e22ea9088f1e6ba0bb9336f3718b25 /checker/check_stat.ml | |
parent | 06746919eadeeb430bfb464d83847f982ea78540 (diff) | |
parent | a0a94c1340a63cdb824507b973393882666ba52a (diff) |
Merge commit 'upstream/8.2-1+dfsg'
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 96366594..6ea153a3 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 |