diff --git a/compiler/heptagon/transformations/boolean.ml b/compiler/heptagon/transformations/boolean.ml
index 110e186..9fa34b2 100644
--- a/compiler/heptagon/transformations/boolean.ml
+++ b/compiler/heptagon/transformations/boolean.ml
@@ -882,15 +882,16 @@ let node ({ n_input = inputs;
             n_output = outputs;
             n_contract = contract;
             n_block = b } as n) =
-  let inputs,in_loc,in_eq,env = buildenv_var_dec_list Env.empty inputs in
-  let outputs,out_loc,out_eq,env = buildenv_var_dec_list env outputs in
-  let contract, env = translate_contract env contract in
-  let add_locals = in_loc@out_loc in
-  let add_eqs = in_eq@out_eq in
-  let b,_ = translate_block env add_locals add_eqs b in
+  (* let inputs,in_loc,in_eq,env = buildenv_var_dec_list Env.empty inputs in *)
+  (* let outputs,out_loc,out_eq,env = buildenv_var_dec_list env outputs in *)
+  let contract, env = translate_contract Env.empty contract in
+  (* let add_locals = in_loc@out_loc in *)
+  (* let add_eqs = in_eq@out_eq in *)
+  (* let b,_ = translate_block env add_locals add_eqs b in *)
+  let b,_ = translate_block env [] [] b in
   { n with
-      n_input = List.rev inputs;
-      n_output = List.rev outputs;
+      (* n_input = List.rev inputs; *)
+      (* n_output = List.rev outputs; *)
       n_contract = contract;
       n_block = b }