diff options
| -rw-r--r-- | asmcomp/closure.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asmcomp/closure.ml b/asmcomp/closure.ml index aca36cbe9..1cd5852f9 100644 --- a/asmcomp/closure.ml +++ b/asmcomp/closure.ml @@ -783,7 +783,7 @@ and close_functions fenv cenv fun_defs = build_closure_env env_param (fv_pos - env_pos) fv in let cenv_body = List.fold_right2 - (fun (id, params, arity, body) pos env -> + (fun (id, params, body, fundesc) pos env -> Tbl.add id (Uoffset(Uvar env_param, pos - env_pos)) env) uncurried_defs clos_offsets cenv_fv in let (ubody, approx) = close fenv_rec cenv_body body in |