From 3bb0458f2f824af1abafe23b5d87c27fe0e49530 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 11 Sep 2024 16:06:50 +0100
Subject: command-line-tool: Use vector-map->list.

*
ravanan/command-line-tool.scm (build-command-line-tool-script)[files-to-stage]:
Use vector-map->list.
---
 ravanan/command-line-tool.scm | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm
index 7aeff57..993715b 100644
--- a/ravanan/command-line-tool.scm
+++ b/ravanan/command-line-tool.scm
@@ -662,19 +662,18 @@ named @var{name} with @var{inputs} using tools from Guix manifest
                             (assoc-ref* env-var-requirement "envDef"))))
 
   (define (files-to-stage initial-work-dir-requirement)
-    (map (lambda (dirent)
-           (let ((entry-name (assoc-ref dirent "entryname")))
-             (let stage ((entry (assoc-ref dirent "entry")))
-               (cond
-                ((javascript-expression? entry)
-                 (stage
-                  (evaluate-javascript %node
-                                       (strip-javascript-expression entry))))
-                ((string? entry)
-                 (list entry-name entry))))))
-         (vector->list
-          (assoc-ref initial-work-dir-requirement
-                     "listing"))))
+    (vector-map->list (lambda (dirent)
+                        (let ((entry-name (assoc-ref dirent "entryname")))
+                          (let stage ((entry (assoc-ref dirent "entry")))
+                            (cond
+                             ((javascript-expression? entry)
+                              (stage
+                               (evaluate-javascript %node
+                                                    (strip-javascript-expression entry))))
+                             ((string? entry)
+                              (list entry-name entry))))))
+                      (assoc-ref initial-work-dir-requirement
+                                 "listing")))
 
   (define stdout-filename
     (cond
-- 
cgit v1.2.3