blob: 630bf2b8e315fb69d7bc063eb19d8187563b6d2f [file] [edit]
[Compiler.saveMono] size: 12
def f b a.1 : EST.Out IO.Error lcAny PUnit :=
jp _jp.2 a _y.3 : EST.Out IO.Error lcAny PUnit :=
let _x.4 := print a _y.3;
cases _x.4 : EST.Out IO.Error lcAny PUnit
| EST.Out.ok a.5 a.6 =>
let _x.7 := print a a.6;
return _x.7
| EST.Out.error a.8 a.9 =>
return _x.4;
cases b : EST.Out IO.Error lcAny PUnit
| Bool.false =>
let _x.10 := 1;
goto _jp.2 _x.10 a.1
| Bool.true =>
let _x.11 := 0;
goto _jp.2 _x.11 a.1