UniTO/tesi/examples/2.lambda

8 lines
180 B
Text
Raw Normal View History

2020-06-04 23:48:32 +02:00
(setglobal ll!
(let
(f1/82 =
(function param/83
(catch (if (!= param/83 0) (observe 1) (exit 1)) with (1)
(observe 0))))
(makeblock 0 f1/82)))