source: to-imperative/trunk/samples/Syntax/trap6.rf @ 4085

Last change on this file since 4085 was 4026, checked in by orlov, 12 years ago
  • Tests for $trap...$with construction.
  • Property svn:eol-style set to native
File size: 134 bytes
Line 
1$use StdIO;
2
3$func Main = e;
4Main =
5  $trap $error X $with {
6    s1, $trap $error Y $with \{};
7    e1 = <PrintLn "Catched: "e1>;
8  };
Note: See TracBrowser for help on using the repository browser.