.

[SXSI/xpathcomp.git] / memoizer.ml

diff --git a/memoizer.ml b/memoizer.ml
index 2432af7..861fbb6 100644 (file)
--- a/memoizer.ml
+++ b/memoizer.ml
@@ -39,7 +39,7 @@ struct
 
 
   let make f = 
-    let tbl = H.create SMALL_H_SIZE in
+    let tbl = H.create BIG_H_SIZE in
       fun arg -> 
        try
          H.find tbl arg 
@@ -50,8 +50,8 @@ struct
   type 'a fix = Fix of ('a fix -> 'a)
 
   let make_rec f = 
-    let tbl = H.create SMALL_H_SIZE in
-    let unboxed = 
+    let tbl = H.create BIG_H_SIZE in
+    let unboxed =
       function ((Fix f')as fix) -> 
        f (fun arg ->
             try