Fixed uneeded free in get cached text

[SXSI/xpathcomp.git] / ata.ml

diff --git a/ata.ml b/ata.ml
index 4ef9ccf..043d3d2 100644 (file)
--- a/ata.ml
+++ b/ata.ml
@@ -1009,7 +1009,7 @@ END
     end
           
     let top_down_count a t = let module RI = Run(Integer) in Integer.length (RI.run_top_down a t)
-    let top_down a t = let module RI = Run(GResult) in (RI.run_top_down a t)
+    let top_down a t = let module RI = Run(IdSet) in (RI.run_top_down a t)
     let bottom_up_count a t k = let module RI = Run(Integer) in Integer.length (RI.run_bottom_up a t k)