[TESTS][EVAL][MINOR] Bug fix

tests/eval/src/compile.ml

@@ -41,7 +41,7 @@ let parse_to_lambda expr =
 	  fill_params interface [||] 1
 	in
 	let new_env = mk_env ~parent:(Some env) ~max_size:env.max_size ~map:map
-	  nbrparams (env.global_size + nbrparams + 1) in
+	  nbrparams (env.global_size + nbrparams) in
 	let brs = compile_func_body new_env body in
 	Abstraction(params, [], brs, nbrparams, true, List [[]])
       | Var(vname) -> (try let index = env_find env vname in Var(Local(index))