Make <=, >= and <> work

This commit is contained in:
2022-12-10 19:24:34 +01:00
parent a44c9288f5
commit ac1eea42e9
2 changed files with 4 additions and 7 deletions

View File

@@ -125,8 +125,7 @@ let pp_expression =
begin
let s = match cop with
| COp_eq -> " == "
| COp_neq -> " "
(* TODO: check <= and >= *)
| COp_neq -> " != "
| COp_le -> " <= " | COp_lt -> " < "
| COp_ge -> " >= " | COp_gt -> " > " in
Format.fprintf fmt "%s%a%s%a" prefix