tests/i/multifile-try-catch/middle.cps


1
2
3
4
5
6
7
8
9
10
11
12
13


INCLUDE "leaf.cps"
PROCEDURE Outer()
    DECLARE GuardOne : Guard
    GuardOne.Id <- 1
    CALL Raise()
ENDPROCEDURE
PROCEDURE CatchHere()
    TRY
        CALL Raise()
    CATCH
        OUTPUT "library caught:", Destroyed
    ENDTRY
ENDPROCEDURE