diff options
| -rw-r--r-- | ravanan/work/command-line-tool.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/ravanan/work/command-line-tool.scm b/ravanan/work/command-line-tool.scm index 843e939..5377fe3 100644 --- a/ravanan/work/command-line-tool.scm +++ b/ravanan/work/command-line-tool.scm @@ -324,7 +324,13 @@ the G-expressions are inserted." ;; Empty arrays should be noops. (() (list)) (elements - (let ((args (append-map command-line-binding->args + (let ((args (append-map (lambda (element) + (command-line-binding->args + (command-line-binding %nothing + %nothing + (cwl-array-type-subtype type) + element + %nothing))) elements))) (append (maybe->list prefix) (from-maybe |