diff options
| author | letouzey | 2013-03-13 00:00:37 +0000 |
|---|---|---|
| committer | letouzey | 2013-03-13 00:00:37 +0000 |
| commit | 7e50cbcc7e0ecbc9c4dd7bace9f2cb261a2c2d84 (patch) | |
| tree | b017040c6e7d4aa596442c813b732f05d1c434ff /plugins/funind/functional_principles_proofs.ml | |
| parent | cf655f627e413938a76cc1fdb830e15a26050163 (diff) | |
Restrict (try...with...) to avoid catching critical exn (part 11)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16287 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/funind/functional_principles_proofs.ml')
| -rw-r--r-- | plugins/funind/functional_principles_proofs.ml | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml index fdbd6cabd2..ef4dca26de 100644 --- a/plugins/funind/functional_principles_proofs.ml +++ b/plugins/funind/functional_principles_proofs.ml @@ -73,16 +73,9 @@ let do_observe_tac s tac g = ignore(Stack.pop debug_queue); v with reraise -> - begin - if not (Stack.is_empty debug_queue) - then - begin - let reraise : exn = Cerrors.process_vernac_interp_error reraise in - print_debug_queue true reraise - end - ; - raise reraise - end + if not (Stack.is_empty debug_queue) + then print_debug_queue true (Cerrors.process_vernac_interp_error reraise); + raise reraise let observe_tac_stream s tac g = if do_observe () |