let rec token = lexer
| [' ' '\t'] -> token lexbuf
- | "and" | "not" | "or" | "text" | "node"
+ | "and" | "not" | "or" (* | "text" | "node" *)
| "self" | "descendant" | "child" | "descendant-or-self"
| "attribute" | "following-sibling" | "preceding-sibling"
| "parent" | "ancestor" | "ancestor-or-self" | "preceding" | "following"