diff options
| author | Arun Isaac | 2025-12-18 02:21:58 +0000 |
|---|---|---|
| committer | Arun Isaac | 2025-12-18 02:26:08 +0000 |
| commit | 8478863c8b3ce60ffd52a9cb3a2ffd993efb8ca2 (patch) | |
| tree | cd70571a9229e1d68402e68ba6b5b55a9bf230ee | |
| parent | b60b88c408f3214953f119bb04f886845882b264 (diff) | |
| download | ravanan-8478863c8b3ce60ffd52a9cb3a2ffd993efb8ca2.tar.gz ravanan-8478863c8b3ce60ffd52a9cb3a2ffd993efb8ca2.tar.lz ravanan-8478863c8b3ce60ffd52a9cb3a2ffd993efb8ca2.zip | |
Revert "work/command-line-tool: Recurse with command-line bindings."
This reverts commit b60b88c408f3214953f119bb04f886845882b264. <command-line-binding> objects must be constructed recursively before they are ever passed to command-line-binding->args. That is the correct approach.
| -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 |