aboutsummaryrefslogtreecommitdiff
path: root/vernac/vernacstate.ml
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2020-03-01 02:49:04 -0500
committerEmilio Jesus Gallego Arias2020-03-08 00:44:58 -0500
commit4ba8fabb14256cdc65e8440362d6697d9e97b7f4 (patch)
tree6dc6168679e8b48127decd32823afa39ac77355c /vernac/vernacstate.ml
parentdbd3a4c4213b3d56908a8387de93e27aaec501a4 (diff)
[exn] [nit] Remove not very useful re-raises.
Cleanup: IMHO most of the re-raises here are not worth it.
Diffstat (limited to 'vernac/vernacstate.ml')
-rw-r--r--vernac/vernacstate.ml9
1 files changed, 3 insertions, 6 deletions
diff --git a/vernac/vernacstate.ml b/vernac/vernacstate.ml
index 59557a60a6..280343f315 100644
--- a/vernac/vernacstate.ml
+++ b/vernac/vernacstate.ml
@@ -18,12 +18,9 @@ module Parser = struct
let parse ps entry pa =
Pcoq.unfreeze ps;
- Flags.with_option Flags.we_are_parsing (fun () ->
- try Pcoq.Entry.parse entry pa
- with e when CErrors.noncritical e ->
- let (e, info) = Exninfo.capture e in
- Exninfo.iraise (e, info))
- ()
+ Flags.with_option Flags.we_are_parsing
+ (fun () -> Pcoq.Entry.parse entry pa)
+ ()
end