diff options
| author | Arun Isaac | 2025-12-18 01:55:04 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-12-18 01:55:56 +0000 |
| commit | b60b88c408f3214953f119bb04f886845882b264 (patch) | |
| tree | 3987e37c684fc813888ebc88acfbd2e08afbb9da | |
| parent | 95e80eb15994be11e0133fe756a34444126e68ed (diff) | |
| download | ravanan-b60b88c408f3214953f119bb04f886845882b264.tar.gz ravanan-b60b88c408f3214953f119bb04f886845882b264.tar.lz ravanan-b60b88c408f3214953f119bb04f886845882b264.zip | |
work/command-line-tool: Recurse with command-line bindings.
command-line-binding->args must recursively call itself with <command-line-binding> objects.
| -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 |