First attempt at having a grammar runtime.

[SXSI/xpathcomp.git] / src / grammar.ml

diff --git a/src/grammar.ml b/src/grammar.ml
index cf167fc..bca97aa 100644 (file)
--- a/src/grammar.ml
+++ b/src/grammar.ml
@@ -56,6 +56,7 @@ let is_parameter (n : [< any_type ] Node.t) =
 
 let symbol_tag (n : t_symbol) = (Node.to_int n) lsr 2
 ;;
+let tag = symbol_tag
 let get_tag g (n : t_symbol) = to_string g (symbol_tag n)
 
 
@@ -173,7 +174,6 @@ let load filename bp =
     | e -> (Unix.close fd; raise e)
   in
   Unix.close fd;
-  traversal g;
   Tag.init (tag_operations g);
   g