From 99f1bcc440b81aefde733149598cfa6c396bcde9 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 13 Sep 2024 04:25:17 +0100
Subject: command-line-tool: Create vectors of secondary files for recursion.

* ravanan/command-line-tool.scm (resolve-inputs)[resolve]: When
recursing, create a vector of secondary files.
---
 ravanan/command-line-tool.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm
index 9fd8b51..5170df4 100644
--- a/ravanan/command-line-tool.scm
+++ b/ravanan/command-line-tool.scm
@@ -430,7 +430,8 @@ error out."
                       (resolve input
                                (make-vector (vector-length input)
                                             (assoc-ref type-tree "items"))
-                               maybe-secondary-files))
+                               (make-vector (vector-length input)
+                                            maybe-secondary-files)))
                      ;; Intern File type inputs and fully resolve them.
                      ((eq? matched-type 'File)
                       (let ((resolved-input (canonicalize-file-input input)))
-- 
cgit v1.2.3