source: to-imperative/trunk/samples/Access/right.rf @ 587

Last change on this file since 587 was 587, checked in by luba, 18 years ago
  • tests for Access functions
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 165 bytes
Line 
1$use Access StdIO;
2
3Main =
4  {
5    <PrintLN <Right 0 0 'abc'>>, <PrintLN <Right 2 3 'abcdef'>>, <PrintLN <Right 2 3 'abcd'>>;
6    <PrintLN "Branch 1 failed">;
7  };
8
Note: See TracBrowser for help on using the repository browser.