Skip to content
Browse files

stupid var naming bug

  • Loading branch information...
1 parent 73c01b0 commit 0cca12b92f60c8635df9e019e847079a5cea5add @jpolitz jpolitz committed Aug 2, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/ljs/ljs_eval.ml
View
4 src/ljs/ljs_eval.ml
@@ -173,7 +173,7 @@ let alloc_args body argvals argnames (store, env) =
else
let env' = IdMap.add argname (Immutable argval) env in
(store, env') in
- List.fold_right2 (alloc_arg body) args xs (store, env)
+ List.fold_right2 (alloc_arg body) argvals argnames (store, env)
let rec eval desugar exp env (store : store) : (value * store) =
let eval exp env store =
@@ -518,7 +518,7 @@ let rec eval desugar exp env (store : store) : (value * store) =
and envstore_of_obj p expr (_, props) store =
IdMap.fold (fun id prop (env, store) -> match prop with
| Data ({value=v}, _, _) ->
- let (store', env') = alloc_arg expr v id (store, env) in
+ let (store', env') = alloc_args expr [v] [id] (store, env) in
env', store'
| _ -> interp_error p "Non-data value in env_of_obj")
props (IdMap.empty, store)

0 comments on commit 0cca12b

Please sign in to comment.
Something went wrong with that request. Please try again.