source: to-imperative/trunk/samples/Syntax/trap2.rf @ 2814

Last change on this file since 2814 was 2814, checked in by yura, 14 years ago
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 161 bytes
Line 
1$use StdIO;
2
3$func F = ;
4
5F = A : B;
6
7Main =
8  $trap <F> $with {
9    F "Unexpected fail" = <WriteLn Catched F "Unexpected fail">;
10    err = <WriteLn err>;
11  };
12
Note: See TracBrowser for help on using the repository browser.