From 95e80eb15994be11e0133fe756a34444126e68ed Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 18 Dec 2025 01:53:54 +0000
Subject: work/command-line-tool: Convert array command-line bindings to list.

---
 ravanan/work/command-line-tool.scm | 6 +++---
 1 file 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)))
-- 
cgit 1.4.1