Paris7/unification-pfa
Archived
1
0
Fork 0
Code Issues Activity

fmt issue

Browse source
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
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/term.ml
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 ^ ")"