Trivial fix

2018-02-20 18:55:52 +00:00 · 2018-02-20 18:55:52 +00:00 · db345be90b
parent 2a531c5d24
commit db345be90b
1 changed files with 1 additions and 1 deletions
--- a/src/lib.ml
+++ b/src/lib.ml
@ -594,7 +594,7 @@ and fold_closure ts ~init ~f ~stack =
    | [] -> Ok acc
    | t :: ts ->
      if Int_set.mem t.unique_id !seen then
-        Ok acc
+        loop ts acc ~stack
      else begin
        seen := Int_set.add t.unique_id !seen;
        f t acc >>= fun acc ->