diff options
| author | Arun Isaac | 2024-09-11 16:06:50 +0100 |
|---|---|---|
| committer | Arun Isaac | 2024-09-11 16:06:50 +0100 |
| commit | 3bb0458f2f824af1abafe23b5d87c27fe0e49530 (patch) | |
| tree | d029e41e220cb3d1ea89a84926405c868f75b8df | |
| parent | dcb1939e6deff6134686f9ae422389b630a1a4ad (diff) | |
| download | ravanan-3bb0458f2f824af1abafe23b5d87c27fe0e49530.tar.gz ravanan-3bb0458f2f824af1abafe23b5d87c27fe0e49530.tar.lz ravanan-3bb0458f2f824af1abafe23b5d87c27fe0e49530.zip | |
command-line-tool: Use vector-map->list.
* ravanan/command-line-tool.scm (build-command-line-tool-script)[files-to-stage]: Use vector-map->list.
| -rw-r--r-- | ravanan/command-line-tool.scm | 25 |
1 files 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 |