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
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