diff options
| -rw-r--r-- | ravanan/command-line-tool.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm index 30ff451..8f269ff 100644 --- a/ravanan/command-line-tool.scm +++ b/ravanan/command-line-tool.scm @@ -250,13 +250,13 @@ G-expressions are inserted." position prefix matched-type - (collect-bindings - (list (vector->list input) - (make-list (vector-length input) - (assoc-ref type-tree "items")) - (make-list (vector-length input) - (maybe-assoc-ref (just type-tree) - "inputBinding")))) + (append-map (lambda (input) + (input+type-tree+binding->command-line-binding + (list input + (assoc-ref type-tree "items") + (maybe-assoc-ref (just type-tree) + "inputBinding")))) + (vector->list input)) (maybe-assoc-ref binding "itemSeparator")))) (else (list (command-line-binding |