Commit 3c87c68c authored by Leon Gondelman's avatar Leon Gondelman
Browse files

smtv2: fix pretty-printing of Tlet

parent 7d4f855a
...@@ -157,7 +157,7 @@ let rec print_term info fmt t = match t.t_node with ...@@ -157,7 +157,7 @@ let rec print_term info fmt t = match t.t_node with
end end end end
| Tlet (t1, tb) -> | Tlet (t1, tb) ->
let v, t2 = t_open_bound tb in let v, t2 = t_open_bound tb in
fprintf fmt "@[(let (%a %a)@ %a)@]" print_var v fprintf fmt "@[(let ((%a %a))@ %a)@]" print_var v
(print_term info) t1 (print_term info) t2; (print_term info) t1 (print_term info) t2;
forget_var v forget_var v
| Tif (f1,t1,t2) -> | Tif (f1,t1,t2) ->
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment