source: to-imperative/trunk/samples/Syntax/block_pattern1.rf @ 2528

Last change on this file since 2528 was 2528, checked in by orlov, 14 years ago
  • Test for block in pattern.
  • Property svn:eol-style set to native
File size: 118 bytes
Line 
1$use StdIO;
2
3$func F s = s;
4
5F {
6  \{ A; B; } = C;
7  s = D;
8};
9
10Main = { A B C : e s1 e, <WriteLN <F s1>>, $fail;; };
Note: See TracBrowser for help on using the repository browser.