diff options
| author | gareuselesinge | 2013-10-18 13:52:05 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-10-18 13:52:05 +0000 |
| commit | c44067d1565e7c139c9bde4d041661ac256c3869 (patch) | |
| tree | 4dff87c77e17ecd76e3cecf4dfbbdd2f28dcf58a | |
| parent | c30c352b3d7c2a93aea45fedbdc9a7327d743a9f (diff) | |
Summary: if an unfreeze function fails, print an error message
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16890 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | library/summary.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/library/summary.ml b/library/summary.ml index af4deb40fc..dcc6cce90e 100644 --- a/library/summary.ml +++ b/library/summary.ml @@ -107,7 +107,11 @@ let unfreeze_summary datas = List.iter (fun (id, data) -> let summary = Hashtbl.find summaries id in - summary.unfreeze_function data) + try summary.unfreeze_function data + with e -> + let e = Errors.push e in + prerr_endline ("Exception unfreezing " ^ id); + raise e) datas (** All-in-one reference declaration + registration *) |