Merge branch 'handle-stdout'

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

diff --git a/src/tag.ml b/src/tag.ml
index 2cc1663..ddaa89d 100644 (file)
--- a/src/tag.ml
+++ b/src/tag.ml
@@ -8,10 +8,10 @@
 
 
 type t = int
-
+external to_int : t -> int = "%identity"
 type operations = {
   tag :  string -> t;
-  to_string : t ->string;
+  to_string : t -> string;
   translate :  t -> t
 }