ligo/src/passes/11-self_mini_c/michelson_restrictions.ml

open Errors
open Mini_c
open Trace

let self_in_lambdas : expression -> (expression,_) result = 
  fun e ->
    match e.content with
    | E_closure {binder=_ ; body} ->
      let%bind _self_in_lambdas = Helpers.map_expression
        (fun e -> match e.content with
        | E_constant {cons_name=C_SELF_ADDRESS; _} -> fail (bad_self_address C_SELF_ADDRESS)
        | _ -> ok e)
        body in
      ok e
    | _ -> ok e
result monad refactoring: - do not use plain JSON rep for errors and use polymorphic variants instead - split formatting for human readable and JSON output - no more simple_errors simple_fails - much less result bindings used in stages 2020-06-12 13:33:14 +02:00			`open Errors`
detect self_address when not at top level 2020-01-20 19:15:09 +01:00			`open Mini_c`
			`open Trace`

result monad refactoring: - do not use plain JSON rep for errors and use polymorphic variants instead - split formatting for human readable and JSON output - no more simple_errors simple_fails - much less result bindings used in stages 2020-06-12 13:33:14 +02:00			`let self_in_lambdas : expression -> (expression,_) result =`
detect self_address when not at top level 2020-01-20 19:15:09 +01:00			`fun e ->`
			`match e.content with`
			`\| E_closure {binder=_ ; body} ->`
			`let%bind _self_in_lambdas = Helpers.map_expression`
			`(fun e -> match e.content with`
Somewhat better PP for ast_core and mini_c 2020-03-23 15:14:55 -05:00			`\| E_constant {cons_name=C_SELF_ADDRESS; _} -> fail (bad_self_address C_SELF_ADDRESS)`
detect self_address when not at top level 2020-01-20 19:15:09 +01:00			`\| _ -> ok e)`
			`body in`
			`ok e`
			`\| _ -> ok e`