Major optimization, rewrite to avoid deep recursion if possible.

[SXSI/xpathcomp.git] / hcons.ml

diff --git a/hcons.ml b/hcons.ml
index 637a60d..7bc8823 100644 (file)
--- a/hcons.ml
+++ b/hcons.ml
@@ -52,6 +52,7 @@ struct
       WH.merge pool cell
 
   exception Found of t
+
   let with_id id = 
     try
       WH.iter (fun r -> if r.id == id then raise (Found r))  pool;