UniTO/tesi/examples/ex2.lambda
2020-06-04 23:48:32 +02:00

7 lines
181 B
Text

(setglobal Ex2!
(let
(f1/82 =
(function param/83
(catch (if (!= param/83 0) (observe 1) (exit 1)) with (1)
(observe 0))))
(makeblock 0 f1/82)))