2021-04-22 15:08:32 +03:00
|
|
|
Dumping case trees to Main.cases
|
|
|
|
prim__add_Integer = [{arg:N}, {arg:N}]: (+Integer [!{arg:N}, !{arg:N}])
|
|
|
|
prim__sub_Integer = [{arg:N}, {arg:N}]: (-Integer [!{arg:N}, !{arg:N}])
|
|
|
|
prim__mul_Integer = [{arg:N}, {arg:N}]: (*Integer [!{arg:N}, !{arg:N}])
|
2021-10-07 21:21:32 +03:00
|
|
|
Main.plus = [{arg:N}, {arg:N}]: (%case !{arg:N} [(%constcase 0 !{arg:N})] Just (%let {e:N} (-Integer [!{arg:N}, 1]) (+Integer [(Main.plus [!{e:N}, !{arg:N}]), 1])))
|
|
|
|
Main.main = [{ext:N}]: (Main.plus [1, 2])
|
2021-11-25 20:07:05 +03:00
|
|
|
Builtin.believe_me = [{arg:N}]: (believe_me [___, ___, !{arg:N}])
|
2021-05-11 02:12:23 +03:00
|
|
|
Prelude.Types.prim__integerToNat = [{arg:N}]: (%case (%case (<=Integer [0, !{arg:N}]) [(%constcase 0 0)] Just 1) [(%constcase 1 (Builtin.believe_me [!{arg:N}])), (%constcase 0 0)] Nothing)
|
2022-07-07 11:54:52 +03:00
|
|
|
PrimIO.unsafePerformIO = [{arg:N}]: (%let {eff:N} !{arg:N} (PrimIO.unsafeCreateWorld [(%lam w (%let {eff:N} (!{eff:N} [!w]) !{eff:N}))]))
|
2021-05-03 15:37:38 +03:00
|
|
|
PrimIO.unsafeCreateWorld = [{arg:N}]: (!{arg:N} [%MkWorld])
|
2021-04-22 15:08:32 +03:00
|
|
|
|