Commit 087f90ad authored by MARCHE Claude's avatar MARCHE Claude
Browse files

[interp] pretty-print tuples

parent 02ea4c94
...@@ -77,6 +77,9 @@ let rec print_value fmt v = ...@@ -77,6 +77,9 @@ let rec print_value fmt v =
i := BigInt.succ !i i := BigInt.succ !i
done; done;
fprintf fmt "]@]" fprintf fmt "]@]"
| Vapp(ls,vl) when is_fs_tuple ls ->
fprintf fmt "@[(%a)@]"
(Pp.print_list Pp.comma print_value) vl
| Vapp(ls,vl) -> | Vapp(ls,vl) ->
fprintf fmt "@[%a(%a)@]" fprintf fmt "@[%a(%a)@]"
Pretty.print_ls ls (Pp.print_list Pp.comma print_value) vl Pretty.print_ls ls (Pp.print_list Pp.comma print_value) vl
...@@ -1017,7 +1020,7 @@ let find_definition env ps = ...@@ -1017,7 +1020,7 @@ let find_definition env ps =
Some (Mps.find ps env.funenv) Some (Mps.find ps env.funenv)
with with
Not_found -> Not_found ->
Mlw_decl.find_definition env.mknown ps Mlw_decl.find_definition env.mknown ps
(* evaluate expressions *) (* evaluate expressions *)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment