1
0
Fork 0

fmt issue

This commit is contained in:
Mylloon 2024-04-27 12:33:39 +02:00
parent b8ecc596dd
commit cc709fb5b3
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -22,16 +22,17 @@ type t =
let rec string_of_term = function let rec string_of_term = function
| Var v -> "Var '" ^ v ^ "'" | Var v -> "Var '" ^ v ^ "'"
| IntConst n -> "IntConst(" ^ string_of_int n ^ ")" | IntConst n -> string_of_int n
| Binop (a, b, c) -> | Binop (a, b, c) ->
"Binop (" "Binop ("
^ string_of_term a ^ string_of_term a
^ ", " ^ " "
^ (match b with ^ (match b with
| Plus -> "+" | Plus -> "+"
| Minus -> "-" | Minus -> "-"
| Times -> "*" | Times -> "*"
| Div -> "/") | Div -> "/")
^ " "
^ string_of_term c ^ string_of_term c
^ ")" ^ ")"
| Pair (a, b) -> "Pair (" ^ string_of_term a ^ ", " ^ string_of_term b ^ ")" | Pair (a, b) -> "Pair (" ^ string_of_term a ^ ", " ^ string_of_term b ^ ")"