Print labels (=QName -> qname.ml? )

[tatoo.git] / src / test.ml

diff --git a/src/test.ml b/src/test.ml
index 8b69fd8..334e572 100644 (file)
--- a/src/test.ml
+++ b/src/test.ml
@@ -37,7 +37,7 @@ let query =
 
 open Format
 
-let asta = Compil.trad query
+let asta = Compil.trans query
 
 let () =
   fprintf err_formatter "Query: %a\n%!" XPath.Ast.print query;