Skip to content

Commit

Permalink
Add parentheses to BoolDomain.leq-s to make precedence explicit
Browse files Browse the repository at this point in the history
It was already correct, but not obvious without looking up OCaml operator precedence.
  • Loading branch information
sim642 committed Oct 11, 2024
1 parent 8214807 commit 8f5a891
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/domain/boolDomain.ml
Original file line number Diff line number Diff line change
Expand Up @@ -45,7 +45,7 @@ struct
let is_bot x = x = false
let top () = true
let is_top x = x = true
let leq x y = x = y || y
let leq x y = (x = y) || y
let join = (||)
let widen = (||)
let meet = (&&)
Expand All @@ -67,7 +67,7 @@ struct
let is_bot x = x = true
let top () = false
let is_top x = x = false
let leq x y = x = y || x
let leq x y = (x = y) || x
let join = (&&)
let widen = (&&)
let meet = (||)
Expand Down

0 comments on commit 8f5a891

Please sign in to comment.