Safety before Techfest

[SXSI/xpathcomp.git] / tag.ml

diff --git a/tag.ml b/tag.ml
index f9c0275..ec80df4 100644 (file)
--- a/tag.ml
+++ b/tag.ml
@@ -21,6 +21,10 @@ let document_node = 0
 let attribute = 1
 let pcdata = 2
 let attribute_data= 3
+let document_node_close = 4
+let attribute_close = 5
+let pcdata_close = 6
+let attribute_data_close= 7
 
 
 let pool = Weak.create 1