From 9aecb4427f0f8ca3cb4c26bc7f73bb74164a93d9 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Wed, 13 Mar 2013 00:00:17 +0000
Subject: Restrict (try...with...) to avoid catching critical exn (part 8)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16284 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/xml_parser.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/xml_parser.ml')

diff --git a/lib/xml_parser.ml b/lib/xml_parser.ml
index 108e226783..630992eb5f 100644
--- a/lib/xml_parser.ml
+++ b/lib/xml_parser.ml
@@ -177,9 +177,9 @@ let do_parse xparser =
 		if xparser.check_eof && pop xparser <> Xml_lexer.Eof then raise (Internal_error EOFExpected);
 		Xml_lexer.close ();
 		x
-	with e ->
+	with any ->
 	  Xml_lexer.close ();
-	  raise (!xml_error (error_of_exn xparser e) xparser.source)
+	  raise (!xml_error (error_of_exn xparser any) xparser.source)
 
 let parse p = do_parse p
 
-- 
cgit v1.2.3