From 81199d4eba1de4b9b39fcf929d06f310b6561920 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 11 Sep 2024 18:11:11 +0100
Subject: command-line-tool: Use coerce-expression with staging files.

*
ravanan/command-line-tool.scm (build-command-line-tool-script)[files-to-stage]:
Use coerce-expression.
Adapt calling expression.
---
 ravanan/command-line-tool.scm | 23 ++++++++---------------
 1 file changed, 8 insertions(+), 15 deletions(-)

diff --git a/ravanan/command-line-tool.scm b/ravanan/command-line-tool.scm
index 0021bcf..d55eb7d 100644
--- a/ravanan/command-line-tool.scm
+++ b/ravanan/command-line-tool.scm
@@ -663,15 +663,8 @@ named @var{name} with @var{inputs} using tools from Guix manifest
 
   (define (files-to-stage initial-work-dir-requirement)
     (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))))))
+                        #~(list #$(coerce-expression (assoc-ref dirent "entryname"))
+                                #$(coerce-expression (assoc-ref dirent "entry"))))
                       (assoc-ref initial-work-dir-requirement
                                  "listing")))
 
@@ -908,12 +901,12 @@ named @var{name} with @var{inputs} using tools from Guix manifest
                                     ((entry-name entry)
                                      (call-with-input-file entry-name
                                        (cut put-string <> entry))))
-                                  '#$(from-maybe
-                                      (maybe-bind
-                                       (find-requirement requirements
-                                                         "InitialWorkDirRequirement")
-                                       (compose just files-to-stage))
-                                      (list)))
+                                  (list #$@(from-maybe
+                                            (maybe-bind
+                                             (find-requirement requirements
+                                                               "InitialWorkDirRequirement")
+                                             (compose just files-to-stage))
+                                            (list))))
                              ;; Actually run the command.
                              #$run-command-gexp
                              ;; Capture outputs.
-- 
cgit v1.2.3