summaryrefslogtreecommitdiff
path: root/tiger-compiler/tests/good/escapes_various.tig
blob: 65689bffa964d1c54c977f8d542a4053e3a74802 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
let
    var i := 69

    function do_something() = let var a := 1 in a := a + 1 end
    function do_something_else() = print_int(1 <> 2)

    function print_a_number(k: int) = print_int(k)
    function conditional_print(value: int) = (print_a_number(value); print_a_number(i))

    function main_callback() = (
        do_something();
        print_a_number(i);
        do_something_else();
        print("\n");
        conditional_print(9)
   )
in
    main_callback()
end