diff options
| -rw-r--r-- | ravanan/work/command-line-tool.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ravanan/work/command-line-tool.scm b/ravanan/work/command-line-tool.scm index 488aba2..843e939 100644 --- a/ravanan/work/command-line-tool.scm +++ b/ravanan/work/command-line-tool.scm @@ -320,12 +320,12 @@ the G-expressions are inserted." (list))) ((eq? type 'null) (list)) ((cwl-array-type? type) - (match value + (match (vector->list value) ;; Empty arrays should be noops. (() (list)) - (_ + (elements (let ((args (append-map command-line-binding->args - value))) + elements))) (append (maybe->list prefix) (from-maybe (maybe-let* ((item-separator (command-line-binding-item-separator binding))) |