fmt issue
This commit is contained in:
parent
b8ecc596dd
commit
cc709fb5b3
1 changed files with 3 additions and 2 deletions
|
@ -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 ^ ")"
|
||||||
|
|
Reference in a new issue