Add complex path traversal to map patch
This commit is contained in:
parent
3d053cd073
commit
5070ded5b9
@ -824,7 +824,7 @@ and simpl_single_instruction : Raw.single_instr -> (_ -> expression result) resu
|
|||||||
| _ :: _ ->
|
| _ :: _ ->
|
||||||
let assigns = List.fold_left
|
let assigns = List.fold_left
|
||||||
(fun map (key, value) -> (e_map_add key value map))
|
(fun map (key, value) -> (e_map_add key value map))
|
||||||
(e_variable name)
|
(e_accessor ~loc (e_variable name) access_path)
|
||||||
inj
|
inj
|
||||||
in e_assign ~loc name access_path assigns
|
in e_assign ~loc name access_path assigns
|
||||||
in return_statement @@ expr
|
in return_statement @@ expr
|
||||||
|
Loading…
Reference in New Issue
Block a user