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

Typo

Browse Source
This commit is contained in:
Sander Spies 2020-01-21 14:57:13 +01:00
parent 95205609f8
commit 483f591f62
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/passes/2-simplify/cameligo.ml
View File

@ -36,7 +36,7 @@ module Errors = struct
] in ] in
error ~data title message error ~data title message
let unsuppported_let_in_function (patterns : Raw.pattern list) = let unsupported_let_in_function (patterns : Raw.pattern list) =
let title () = "unsupported 'let ... in' function" in let title () = "unsupported 'let ... in' function" in
let message () = "defining functions via 'let ... in' is not supported yet" in let message () = "defining functions via 'let ... in' is not supported yet" in
let patterns_loc = let patterns_loc =
@ -354,7 +354,7 @@ let rec simpl_expression :
(* let f p1 ps... = rhs in body *) (* let f p1 ps... = rhs in body *)
| (f, p1 :: ps) -> | (f, p1 :: ps) ->
fail @@ unsuppported_let_in_function (f :: p1 :: ps) fail @@ unsupported_let_in_function (f :: p1 :: ps)
end end
| Raw.EAnnot a -> | Raw.EAnnot a ->
let Raw.{inside=expr, _, type_expr; _}, loc = r_split a in let Raw.{inside=expr, _, type_expr; _}, loc = r_split a in