diff options
-rw-r--r-- | caml/PrintCsyntax.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/caml/PrintCsyntax.ml b/caml/PrintCsyntax.ml index bc4dea65..9ea5b4b8 100644 --- a/caml/PrintCsyntax.ml +++ b/caml/PrintCsyntax.ml @@ -291,7 +291,7 @@ and print_stmt_for p s = print_expr e1 print_expr_list (true, el) | _ -> - fprintf p "<impossible>" + fprintf p "({ %a })" print_stmt s let name_function_parameters fun_name params = let b = Buffer.create 20 in |