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

Forgot to commit the change in the simplifier.

Browse Source
This commit is contained in:
Christian Rinderknecht 2019-10-13 20:15:50 +02:00
parent f634d36b76
commit 89971f31d0
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

@ -772,7 +772,7 @@ and simpl_single_instruction : Raw.single_instr -> (_ -> expression result) resu
| Name name -> ok (name.value , e_variable name.value, []) | Name name -> ok (name.value , e_variable name.value, [])
| Path p -> | Path p ->
let (name,p') = simpl_path v'.path in let (name,p') = simpl_path v'.path in
let%bind accessor = simpl_projection p in let%bind accessor = simpl_projection p in
ok @@ (name , accessor , p') ok @@ (name , accessor , p')
in in
let%bind key_expr = simpl_expression v'.index.value.inside in let%bind key_expr = simpl_expression v'.index.value.inside in
@ -828,7 +828,7 @@ and simpl_single_instruction : Raw.single_instr -> (_ -> expression result) resu
| Name v -> ok (v.value , e_variable v.value , []) | Name v -> ok (v.value , e_variable v.value , [])
| Path p -> | Path p ->
let (name,p') = simpl_path v.map in let (name,p') = simpl_path v.map in
let%bind accessor = simpl_projection p in let%bind accessor = simpl_projection p in
ok @@ (name , accessor , p') ok @@ (name , accessor , p')
in in
let%bind key' = simpl_expression key in let%bind key' = simpl_expression key in
@ -886,7 +886,7 @@ and simpl_cases : type a . (Raw.pattern * a) list -> a matching result = fun t -
| [] -> ok x' | [] -> ok x'
| _ -> ok t | _ -> ok t
) )
| _ -> fail @@ corner_case ~loc:__LOC__ "unexpected pattern" in | pattern -> ok pattern in
let get_constr (t: Raw.pattern) = let get_constr (t: Raw.pattern) =
match t with match t with
| PConstr v -> ( | PConstr v -> (