X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fxpath%2Fulexer.ml;h=02b6e02055cc5a9aa620dc56c1dff520895bb564;hp=baa794d8bc49d86ad5436a8d22801bf63334625f;hb=fe2ba1820282783ae8c10fbbbd2b65d3dc4c67f2;hpb=fed343e8df1900043dc993ac5458c757d3ac2ee0;ds=sidebyside

diff --git a/src/xpath/ulexer.ml b/src/xpath/ulexer.ml
index baa794d..02b6e02 100644
--- a/src/xpath/ulexer.ml
+++ b/src/xpath/ulexer.ml
@@ -122,7 +122,8 @@ let rec token = lexer
  | "node()" -> NODE
  | "text()" -> TEXT
  | "comment()" -> COMMENT
- | '@' ncname -> ATTNAME (L.utf8_lexeme lexbuf)
+ | '@' ncname -> let l = L.utf8_lexeme lexbuf in
+                 ATTNAME (String.sub l 1 (String.length l - 1))
  | "processing-instruction()" -> PI ""
  | "processing-instruction('"ncname"')"
  | "processing-instruction(\""ncname"\")"->