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

Last change on this file since 2383 was 2383, checked in by orlov, 14 years ago
  • Another test for $trap ... $with compilation.
  • Property svn:eol-style set to native
File size: 118 bytes
Line 
1$use StdIO;
2
3Main =
4  $trap $error X $with {
5    s1, $trap $error Y $with \{};
6    e1 = <PrintLN "Catched: "e1>;
7  };
Note: See TracBrowser for help on using the repository browser.