Browse files

Fix memory leak: delayed checks were never invoked

  • Loading branch information...
1 parent e946605 commit fb96b532f98c55c3566fbb3dd6c740b202f8d042 @let-def let-def committed Jan 31, 2014
Showing with 2 additions and 0 deletions.
  1. +2 −0 src/typer.ml
View
2 src/typer.ml
@@ -152,10 +152,12 @@ module Fold = struct
end
with
| exns, None ->
+ Typecore.reset_delayed_checks ();
let snap = Btype.snapshot () in
{state with exns; snap;
global_exns = state.exns @ state.global_exns}, ()
| exns', Some (exns, env) ->
+ Typecore.reset_delayed_checks ();
let snap = Btype.snapshot () in
{state with exns = exns @ exns'; snap; env;
global_exns = state.exns @ state.global_exns}, ()

0 comments on commit fb96b53

Please sign in to comment.