c6b95bf07a
- 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
16 lines
423 B
OCaml
16 lines
423 B
OCaml
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
|