mirror of
https://github.com/CatalaLang/catala.git
synced 2024-09-19 00:15:39 +03:00
Cleanup
This commit is contained in:
parent
561788cbaf
commit
03e74b505d
@ -35,13 +35,6 @@ type 'm ctxt = {
|
||||
program_ctx : A.ctx;
|
||||
}
|
||||
|
||||
let unthunk e =
|
||||
match Mark.remove e with
|
||||
| EAbs { binder; tys = [(TLit TUnit, _)] } ->
|
||||
let _, e = Bindlib.unmbind binder in
|
||||
e
|
||||
| _ -> failwith "should not happen"
|
||||
|
||||
(* Expressions can spill out side effect, hence this function also returns a
|
||||
list of statements to be prepended before the expression is evaluated *)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user