Skip to content

Commit

Permalink
chore(warnings): Drop acts_add_lit_view (#1227)
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 authored Aug 30, 2024
1 parent 05b2d16 commit 6323189
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 6323189

Please sign in to comment.