Skip to content

Commit 0f9c8ac

Browse files
committed
C2PO: Make evaluation of last line of remove_terms_from_bldis more clear.
The code previously relied on the right-to-left evaluation order of OCaml.
1 parent db77cfb commit 0f9c8ac

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

src/cdomains/congruenceClosure.ml

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1202,7 +1202,8 @@ let remove_terms_from_bldis bldis new_reps cc =
12021202
Option.map fst new_root
12031203
in
12041204
let bldis = BlDis.filter_map_lhs find_new_root_term bldis in
1205-
!uf_ref, BlDis.filter_map find_new_root_term bldis
1205+
let bldis = BlDis.filter_map find_new_root_term bldis in
1206+
!uf_ref, bldis
12061207

12071208
(** Remove terms from the data structure.
12081209
It removes all terms for which "predicate" is false,

0 commit comments

Comments
 (0)