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

Extvalue inlining: rogue debug message.

Browse source
This commit is contained in:
Adrien Guatto 2012-01-26 13:22:40 +01:00
parent 964f6ca605
commit 84ca123361
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
compiler/minils/transformations/inline_extvalues.ml
View file

@ -85,7 +85,7 @@ let inline_extvalue_node env nd =
let inline_edesc env funs () e_d =
let e_d', () = Mls_mapfold.edesc funs () e_d in
Format.eprintf "From %a to %a@." print_exp_desc e_d print_exp_desc e_d';
(* Format.eprintf "From %a to %a@." print_exp_desc e_d print_exp_desc e_d'; *)
let e_d = e_d' in
(try match e_d with
| Emerge (x, cl) -> Emerge (find_sampler env x, cl)