Add complex path traversal to map patch

This commit is contained in:
John David Pressman 2019-10-11 17:26:28 -07:00
parent 3d053cd073
commit 5070ded5b9

View File

@ -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