Trivial fix

ocaml · Feb 20, 2018 · db345be · db345be
1 parent 2a531c5
commit db345be
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 ->