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
| Var v -> "Var '" ^ v ^ "'"
| IntConst n -> "IntConst(" ^ string_of_int n ^ ")"
| IntConst n -> string_of_int n
| Binop (a, b, c) ->
"Binop ("
^ string_of_term a
^ ", "
^ " "
^ (match b with
| Plus -> "+"
| Minus -> "-"
| Times -> "*"
| Div -> "/")
^ " "
^ string_of_term c
^ ")"
| Pair (a, b) -> "Pair (" ^ string_of_term a ^ ", " ^ string_of_term b ^ ")"