Updated comments
This commit is contained in:
parent
168a161690
commit
80f24b747c
|
@ -93,8 +93,7 @@ open Format
|
||||||
|
|
||||||
let print_name ff n =
|
let print_name ff n =
|
||||||
let n = if is_infix n
|
let n = if is_infix n
|
||||||
then "(" ^ (n ^ ")") (* do not remove the space around n, since for example
|
then "(" ^ (n ^ ")") (* printers should have a special case to print '*' infix *)
|
||||||
"(*" would create bugs *)
|
|
||||||
else n
|
else n
|
||||||
in fprintf ff "%s" n
|
in fprintf ff "%s" n
|
||||||
|
|
||||||
|
|
|
@ -167,6 +167,7 @@ and print_every ff reset =
|
||||||
and print_app ff (app, args) =
|
and print_app ff (app, args) =
|
||||||
match app.a_op with
|
match app.a_op with
|
||||||
| Etuple -> print_exp_tuple ff args
|
| Etuple -> print_exp_tuple ff args
|
||||||
|
(* we need a special case for '*' and '*.' as printing (_*_) is incorrect *)
|
||||||
| Efun { name = n } when (n = "*" or n = "*.") ->
|
| Efun { name = n } when (n = "*" or n = "*.") ->
|
||||||
let a1, a2 = assert_2 args in
|
let a1, a2 = assert_2 args in
|
||||||
fprintf ff "@[%a@, %s@, %a@]" print_exp a1 n print_exp a2
|
fprintf ff "@[%a@, %s@, %a@]" print_exp a1 n print_exp a2
|
||||||
|
|
Loading…
Reference in a new issue