Skip to content
Snippets Groups Projects
Commit d19afacd authored by Basile Desloges's avatar Basile Desloges
Browse files

[eacsl] Don't set RTE to off after creating a variable

parent fd87268c
No related branches found
No related tags found
No related merge requests found
...@@ -215,9 +215,9 @@ let do_new_var ~loc ?(scope=Varname.Block) ?(name="") env kf t ty mk_stmts = ...@@ -215,9 +215,9 @@ let do_new_var ~loc ?(scope=Varname.Block) ?(name="") env kf t ty mk_stmts =
env_stack = local_env :: tl_env } env_stack = local_env :: tl_env }
| Varname.Block -> | Varname.Block ->
let local_env = let local_env =
{ block_info = new_block; { local_env with
mp_tbl = extend_tbl local_env.mp_tbl; block_info = new_block;
rte = false (* must be already checked by mk_stmts *) } mp_tbl = extend_tbl local_env.mp_tbl }
in in
{ env with { env with
cpt = n; cpt = n;
...@@ -227,8 +227,7 @@ let do_new_var ~loc ?(scope=Varname.Block) ?(name="") env kf t ty mk_stmts = ...@@ -227,8 +227,7 @@ let do_new_var ~loc ?(scope=Varname.Block) ?(name="") env kf t ty mk_stmts =
let new_global_vars = (v, lscope) :: env.new_global_vars in let new_global_vars = (v, lscope) :: env.new_global_vars in
let local_env = let local_env =
{ local_env with { local_env with
block_info = new_block; block_info = new_block }
rte = false (* must be already checked by mk_stmts *) }
in in
{ env with { env with
new_global_vars = new_global_vars; new_global_vars = new_global_vars;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment