Ignore:
Timestamp:
Oct 14, 2004, 7:12:37 PM (16 years ago)
Author:
orlov
Message:
  • Improved test.
Location:
to-imperative/trunk/samples/Dir
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/samples/Dir/read_dir1.rf

    r1463 r1567  
    33Main =
    44  <Open-Dir '.'> :: s.dir,
    5   $iter # <PrintLN <Read-Dir s.dir>>;
     5  $iter # \{
     6    <Read-Dir s.dir> : e.file,
     7    {
     8      e.file : 'read_' e '1.' s s =
     9        <PrintLN "- a mathcing for 'read_*1.??' found">;;
     10    };
     11  };
Note: See TracChangeset for help on using the changeset viewer.