Add indentation to pp_equations in src/ast_to_c.ml

This commit is contained in:
Benjamin Loison 2022-12-10 19:27:18 +01:00
parent ac1eea42e9
commit 5a54f897b1

View File

@ -157,7 +157,7 @@ let pp_expression =
let rec pp_equations fmt: t_eqlist -> unit = function let rec pp_equations fmt: t_eqlist -> unit = function
| [] -> () | [] -> ()
| (patt, expr) :: eqs -> | (patt, expr) :: eqs ->
Format.fprintf fmt "%a = %a;\n%a" Format.fprintf fmt "\t%a = %a;\n%a"
pp_varlist patt pp_varlist patt
pp_expression expr pp_expression expr
pp_equations eqs pp_equations eqs