async process list of files

1 files changed, 6 insertions, 3 deletions

diff --git a/letter_table.kpl b/letter_table.kpl
index 29856b0..9eb25a5 100644
--- a/letter_table.kpl
+++ b/letter_table.kpl
@@ -18,9 +18,12 @@
     ? 3 != `length args {
         `return `error String $ (
             "#BOLD#RED#Got: %#\n" `format " " `join args
-            "#BOLD#WHITE#Usage: % % <file>#\n" `format (args `get 0; args `get 1)
+            "#BOLD#WHITE#Usage: % % <file...>#\n" `format (args `get 0; args `get 1)
          )
     }
-    `use "file" [open; read]
-    `log letter_table `sync String $ read `sync open `sync args `get -1
+    read_log : ([filename]
+        `use "io" [open; read]
+        `log letter_table `sync read `sync open `sync filename
+    )
+    @ 2 .. `length args {[arg_index] read_log `async args `get arg_index }
 )