From 8478863c8b3ce60ffd52a9cb3a2ffd993efb8ca2 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 18 Dec 2025 02:21:58 +0000
Subject: 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.
---
 ravanan/work/command-line-tool.scm | 8 +-------
 1 file changed, 1 insertion(+), 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
-- 
cgit 1.4.1