7 lines
236 B
Text
Executable file
7 lines
236 B
Text
Executable file
(setglobal Ex3!
|
|
(let
|
|
(f1/82 =
|
|
(function param/83
|
|
(catch (if (!= param/83 0) (observe 1) (exit 1)) with (1)
|
|
(raise (makeblock 0 (global Match_failure/18!) [0: "ex3.ml" 4 9])))))
|
|
(makeblock 0 f1/82)))
|