diff --git a/src/passes/13-stacking/errors.ml b/src/passes/13-stacking/errors.ml index f6fe0a84b..14030d770 100644 --- a/src/passes/13-stacking/errors.ml +++ b/src/passes/13-stacking/errors.ml @@ -59,7 +59,7 @@ let rec error_ppformat : display_format:string display_format -> Format.pp_print_string f s ; | `Stacking_expression_tracer (e,ty,err) -> Format.fprintf f - "@[compiling expression@%a of type %a@%a]" + "@[compiling expression %a@ of type %a@ %a]" Mini_c.PP.expression e Mini_c.PP.type_variable ty (error_ppformat ~display_format) err