source:
to-imperative/trunk/samples/Syntax/block2.rf
@
1096
Last change on this file since 1096 was 1096, checked in by orlov, 17 years ago | |
---|---|
|
|
File size: 137 bytes |
Line | |
---|---|
1 | $use StdIO; |
2 | |
3 | Main = |
4 | { XXX; YYY; } : ex, |
5 | { |
6 | ex : YYY; |
7 | <PrintLN "Branch 1 failed.">, |
8 | ex : XXX, |
9 | <PrintLN Ok!>; |
10 | }; |
11 |
Note: See TracBrowser
for help on using the repository browser.