diff options
| author | Arun Isaac | 2025-12-18 01:53:54 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-12-18 01:55:34 +0000 |
| commit | 95e80eb15994be11e0133fe756a34444126e68ed (patch) | |
| tree | cd70571a9229e1d68402e68ba6b5b55a9bf230ee | |
| parent | d68d54c13c09ac2df031398075b089bcaf4348be (diff) | |
| download | ravanan-95e80eb15994be11e0133fe756a34444126e68ed.tar.gz ravanan-95e80eb15994be11e0133fe756a34444126e68ed.tar.lz ravanan-95e80eb15994be11e0133fe756a34444126e68ed.zip | |
work/command-line-tool: Convert array command-line bindings to list.
| -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))) |