Commit b942f456 authored by Gwenaël Delaval's avatar Gwenaël Delaval

"Last" pass bug correction

parent 35bce1d5
......@@ -62,20 +62,21 @@ let edesc _ env ed = match ed with
let block funs env b =
let eq_list, env, vd_list = extend_env env b.b_equs b.b_local b.b_local in
let b = { b with b_local = vd_list;
b_equs = eq_list } in
let b, _ = Hept_mapfold.block funs env b in
{ b with b_local = vd_list;
b_equs = eq_list },
env
b, env
let node_dec funs _ n =
Idents.enter_node n.n_name;
let { n_block } = n in
let _, env, _ = extend_env Env.empty [] [] n.n_input in
let eq_list, env, vd_list = extend_env env n_block.b_equs n_block.b_local n.n_output in
let n = { n with n_block =
{ n_block with b_local = vd_list;
b_equs = eq_list } } in
let n, _ = Hept_mapfold.node_dec funs env n in
{ n with n_block =
{ n_block with b_local = vd_list;
b_equs = eq_list } }, env
n, env
let program p =
let funs = { Hept_mapfold.defaults with
......
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