jeltz
/
heptagon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Mls printer fix.

This commit is contained in:
Léonard Gérard 2010-06-30 03:25:08 +02:00
parent 0c5a8d8ffe
commit 2af3686af2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/minils/mls_printer.ml
View File

@ -104,14 +104,15 @@ and print_exp_desc ff = function
print_exp_tuple ff e_list
| Efield (e, field) ->
fprintf ff "%a.%a" print_exp e print_longname field
| Efield_update (f, e1, e2) ->
fprintf ff "@[<2>{%a with .%a =@ %a}@]"
print_exp e1 print_longname f print_exp e2
| Estruct f_e_list ->
print_record (print_couple print_longname print_exp """ = """) ff f_e_list
| Earray e_list ->
fprintf ff "@[<2>%a@]" (print_list_r print_exp "["";""]") e_list
| Earray_op(array_op) -> print_array_op ff array_op
| Efield_update (f, e1, e2) ->
fprintf ff "@[<2>(%a with .%a =@ %a)@]"
print_exp e1 print_longname f print_exp e2
and print_array_op ff = function