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

Change set patch to use left fold

Browse Source
This commit is contained in:
John David Pressman 2019-10-12 12:38:05 -07:00
parent c2a3fd473c
commit b304772928
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -808,9 +808,9 @@ and simpl_single_instruction : Raw.single_instr -> (_ -> expression result) resu
match inj with match inj with
| [] -> e_skip ~loc () | [] -> e_skip ~loc ()
| _ :: _ -> | _ :: _ ->
let assigns = List.fold_right let assigns = List.fold_left
(fun hd s -> e_constant "SET_ADD" [hd ; s]) (fun s hd -> e_constant "SET_ADD" [hd ; s])
inj (e_accessor ~loc (e_variable name) access_path) in (e_accessor ~loc (e_variable name) access_path) inj in
e_assign ~loc name access_path assigns in e_assign ~loc name access_path assigns in
return_statement @@ expr return_statement @@ expr
) )