From 84ca1233610ad60fb596d56ec82adbb7aac6792b Mon Sep 17 00:00:00 2001 From: Adrien Guatto Date: Thu, 26 Jan 2012 13:22:40 +0100 Subject: [PATCH] Extvalue inlining: rogue debug message. --- compiler/minils/transformations/inline_extvalues.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/minils/transformations/inline_extvalues.ml b/compiler/minils/transformations/inline_extvalues.ml index 3f60860..ba6cb6f 100644 --- a/compiler/minils/transformations/inline_extvalues.ml +++ b/compiler/minils/transformations/inline_extvalues.ml @@ -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)