From b60b88c408f3214953f119bb04f886845882b264 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 18 Dec 2025 01:55:04 +0000
Subject: work/command-line-tool: Recurse with command-line bindings.

command-line-binding->args must recursively call itself with
<command-line-binding> objects.
---
 ravanan/work/command-line-tool.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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
-- 
cgit 1.4.1