diff --git a/compiler/obc/c/cgen.ml b/compiler/obc/c/cgen.ml index 841dfa8..7029e5b 100644 --- a/compiler/obc/c/cgen.ml +++ b/compiler/obc/c/cgen.ml @@ -570,7 +570,7 @@ let fun_def_of_step_fun name obj_env mem objs md = f_retty = Cty_void; f_args = args; f_body = { - var_decls = local_vars @ out_vars; + var_decls = out_vars; block_body = body } }