Fix test

2019-10-11 15:27:41 -05:00 · 2019-10-11 15:27:41 -05:00 · c2a3fd473c
commit c2a3fd473c
parent b64f82dff7
1 changed files with 1 additions and 1 deletions
--- a/src/passes/2-simplify/pascaligo.ml
+++ b/src/passes/2-simplify/pascaligo.ml
@ -810,7 +810,7 @@ and simpl_single_instruction : Raw.single_instr -> (_ -> expression result) resu
        | _ :: _ ->
          let assigns = List.fold_right
            (fun hd s -> e_constant "SET_ADD" [hd ; s])
-            inj (e_variable name) in
+            inj (e_accessor ~loc (e_variable name) access_path) in
          e_assign ~loc name access_path assigns in
      return_statement @@ expr
    )