Fail successful execution when expected error is defined
[tiger.ml.git] / compiler / testcases / test06.tig
CommitLineData
38ffcb1f
SK
1/* define valid mutually recursive procedures */
2let
3
4function do_nothing1(a: int, b: string)=
5 do_nothing2(a+1)
6
7function do_nothing2(d: int) =
8 do_nothing1(d, "str")
9
10in
11 do_nothing1(0, "str2")
12end
13
This page took 0.030596 seconds and 4 git commands to generate.