diff options
| -rw-r--r-- | letter_table.kpl | 9 |
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 } ) |