X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Fxpath%2Fparser.ml;h=7386577115cf910ba0e8c88cddc3894fae270847;hb=c6327064b172a54ee7fc03ee54d398fb34f00142;hp=ed5283e933fa09aed9b97c4b57fc92fbbfe31022;hpb=30bc0bb1291426e5e26eb2dee1ffc41e4c246349;p=tatoo.git

diff --git a/src/xpath/parser.ml b/src/xpath/parser.ml
index ed5283e..7386577 100644
--- a/src/xpath/parser.ml
+++ b/src/xpath/parser.ml
@@ -14,11 +14,15 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-02-07 10:31:20 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-04-22 16:23:46 CEST by Kim Nguyen>
 *)
 
 include Xpath_internal_parser
 
 let parse (l : Ulexing.lexbuf) =
-  xpath_query (fun _ -> Ulexer.token l) (Lexing.from_string "!!dummy!!")
+  try
+    xpath_query (fun _ -> Ulexer.token l) (Lexing.from_string "!!dummy!!")
+  with
+    Parsing.Parse_error ->
+      Ulexer.error (Ulexing.lexeme_start l) (Ulexing.lexeme_end l) "syntax error"