Add complex path traversal to map patch

2019-10-11 17:26:28 -07:00 · 2019-10-11 17:26:28 -07:00 · 5070ded5b9
commit 5070ded5b9
parent 3d053cd073
1 changed files with 1 additions and 1 deletions
--- a/src/passes/2-simplify/pascaligo.ml
+++ b/src/passes/2-simplify/pascaligo.ml
@ -824,7 +824,7 @@ and simpl_single_instruction : Raw.single_instr -> (_ -> expression result) resu
        | _ :: _ ->
          let assigns = List.fold_left
              (fun map (key, value) -> (e_map_add key value map))
-              (e_variable name)
+              (e_accessor ~loc (e_variable name) access_path)
              inj
          in e_assign ~loc name access_path assigns
      in return_statement @@ expr