source: to-imperative/trunk/samples/Syntax/iter3.rf @ 1447

Last change on this file since 1447 was 1447, checked in by orlov, 16 years ago
  • Test for empty source after $iter.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 147 bytes
Line 
1$use Box StdIO;
2
3Main =
4  <Box A B C> :: s.box,
5  $iter
6    # \{
7      <? s.box> : s1 e2 =
8        <PrintLN s1>,
9        <Store s.box e2>;
10    };
11
Note: See TracBrowser for help on using the repository browser.