balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cleaning (using name return by simpl_path which is equivalent)

Browse Source
This commit is contained in:
Lesenechal Remi 2019-10-08 18:20:32 +02:00
parent 54662db2f6
commit 8c29dc6df3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/passes/2-simplify/pascaligo.ml
View File

@ -771,9 +771,9 @@ and simpl_single_instruction : Raw.single_instr -> (_ -> expression result) resu
let%bind (varname,map,path) = match v'.path with
| Name name -> ok (name.value , e_variable name.value, [])
| Path p ->
let (_,p') = simpl_path v'.path in
let (name,p') = simpl_path v'.path in
let%bind accessor = simpl_projection p in
ok @@ (p.value.struct_name.value , accessor , p')
ok @@ (name , accessor , p')
in
let%bind key_expr = simpl_expression v'.index.value.inside in
let expr' = e_map_add key_expr value_expr map in
@ -827,9 +827,9 @@ and simpl_single_instruction : Raw.single_instr -> (_ -> expression result) resu
let%bind (varname,map,path) = match v.map with
| Name v -> ok (v.value , e_variable v.value , [])
| Path p ->
let (_,p') = simpl_path v.map in
let (name,p') = simpl_path v.map in
let%bind accessor = simpl_projection p in
ok @@ (p.value.struct_name.value , accessor , p')
ok @@ (name , accessor , p')
in
let%bind key' = simpl_expression key in
let expr = e_constant ~loc "MAP_REMOVE" [key' ; map] in