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