Changeset 1567 for to-imperative/trunk/samples/Dir

Timestamp:

Oct 14, 2004, 7:12:37 PM (16 years ago)

Author:

orlov

Message:

• Improved test.

Location:

to-imperative/trunk/samples/Dir

Files:

• read_dir1.out (added)
• read_dir1.rf (modified) (1 diff)

to-imperative/trunk/samples/Dir/read_dir1.rf

@@ -3 +3 @@
 Main =
   <Open-Dir '.'> :: s.dir,
-  $iter # <PrintLN <Read-Dir s.dir>>;
+  $iter # \{
+    <Read-Dir s.dir> : e.file,
+    {
+      e.file : 'read_' e '1.' s s =
+        <PrintLN "- a mathcing for 'read_*1.??' found">;;
+    };
+  };