[sledge] Refactor: Simplify Term.solve_sum code

Reviewed By: ngorogiannis Differential Revision: D21720985 fbshipit-source-id: e63790889
5 years ago · 0d73a355c9
parent 967a9e1c58
commit 0d73a355c9
1 changed files with 3 additions and 3 deletions
--- a/sledge/src/term.ml
+++ b/sledge/src/term.ml
@ -1296,9 +1296,9 @@ let solve_for_mono rejected_sum coeff mono sum =
 (* solve [0 = rejected + sum] *)
 let rec solve_sum rejected_sum sum =
  let* mono, coeff, sum = Qset.pop_min_elt sum in
-  solve_for_mono rejected_sum coeff mono sum
+  match solve_for_mono rejected_sum coeff mono sum with
-  |> Option.or_else ~f:(fun () ->
+  | Some _ as soln -> soln
-         solve_sum (Qset.add rejected_sum mono coeff) sum )
+  | None -> solve_sum (Qset.add rejected_sum mono coeff) sum
 (* solve [0 = e] *)
 let solve_zero_eq ?for_ e =