Skip to content

Commit

Permalink
chore(warnings): Drop acts_add_lit_view
Browse files Browse the repository at this point in the history
It causes warnings to be emitted on each compilation and will be easy to
add back if we need it in the record.
  • Loading branch information
bclement-ocp committed Aug 29, 2024
1 parent 05b2d16 commit f7b7a0c
Showing 1 changed file with 2 additions and 5 deletions.
7 changes: 2 additions & 5 deletions src/lib/reasoners/bitv_rel.ml
Original file line number Diff line number Diff line change
Expand Up @@ -1015,9 +1015,7 @@ module Bitlist_domains =
(** The ['c acts] type is used to register new facts and constraints in
[Propagator.simplify]. *)
type 'c acts =
{ acts_add_lit_view : ex:Explanation.t -> X.r L.view -> unit
(** Assert a semantic literal. *)
; acts_add_eq : ex:Explanation.t -> X.r -> X.r -> unit
{ acts_add_eq : ex:Explanation.t -> X.r -> X.r -> unit
(** Assert equality between two semantic values. *)
; acts_add_constraint : ex:Explanation.t -> 'c -> unit
(** Assert a new constraint. *)
Expand Down Expand Up @@ -1918,8 +1916,7 @@ let simplify_all uf eqs touched (dom, idom) =
HC.replace to_add c.value c.explanation
in
let acts =
{ acts_add_lit_view
; acts_add_eq
{ acts_add_eq
; acts_add_constraint } in
if Propagator.simplify uf c acts then
let c = explained ~ex:c_ex c in
Expand Down

0 comments on commit f7b7a0c

Please sign in to comment.