Hept2mls: fixed missing enter_node

This commit is contained in:
Adrien Guatto 2012-03-07 17:44:29 +01:00
parent 9640acb3a4
commit f09792485e
1 changed files with 1 additions and 0 deletions

View File

@ -187,6 +187,7 @@ let translate_contract contract =
c_controllables = List.map translate_var l_c }
let node n =
enter_node n.Heptagon.n_name;
{ n_name = n.Heptagon.n_name;
n_stateful = n.Heptagon.n_stateful;
n_unsafe = n.Heptagon.n_unsafe;