extended when once again

This commit is contained in:
Antoine Grimod 2023-01-09 23:04:36 +01:00
parent ad4f5e7962
commit a5f8c720f4

View File

@ -1121,8 +1121,7 @@ let clock_unification_pass verbose debug ast =
| EVar([TBool], var) -> acc, e
| EConst([TBool], cons) -> acc, e
| EMonOp([TBool], MOp_not, e) -> count_not e (acc + 1)
| EComp(_, _, e1, e2) -> acc, e
| _ -> raise (PassExn "count_not failure")
| _ -> acc, e
in
let verify_when e1 e2 =