Commit 1ca15941 authored by Julien Lopez's avatar Julien Lopez
Browse files

[TESTS][EVAL][MINOR] Bug fix

parent 29949bdc
...@@ -41,7 +41,7 @@ let parse_to_lambda expr = ...@@ -41,7 +41,7 @@ let parse_to_lambda expr =
fill_params interface [||] 1 fill_params interface [||] 1
in in
let new_env = mk_env ~parent:(Some env) ~max_size:env.max_size ~map:map 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 let brs = compile_func_body new_env body in
Abstraction(params, [], brs, nbrparams, true, List [[]]) Abstraction(params, [], brs, nbrparams, true, List [[]])
| Var(vname) -> (try let index = env_find env vname in Var(Local(index)) | Var(vname) -> (try let index = env_find env vname in Var(Local(index))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment