tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-05-07 09:45:55 +02:00
Code Activity

linux-container: 'eval/container' correctly passes -L and -C flags.

Browse Source 
This fixes a type error.

* gnu/system/linux-container.scm (eval/container): Use 'append-map', not
'map'.
* tests/containers.scm ("eval/container, non-empty load path"): New test.
This commit is contained in:
Ludovic Courtès
2019-09-18 15:11:40 +02:00
parent f9c0400392
commit 96b35998e6
2 changed files with 34 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
gnu/system/linux-container.scm
+7 -5
View File
@@ -257,11 +257,13 @@ effects."
(lowered-gexp-guile lowered))
"/bin/guile")
"guile"
(append (map (lambda (directory) `("-L" ,directory))
(lowered-gexp-load-path lowered))
(map (lambda (directory) `("-C" ,directory))
(lowered-gexp-load-compiled-path
lowered))
(append (append-map (lambda (directory)
`("-L" ,directory))
(lowered-gexp-load-path lowered))
(append-map (lambda (directory)
`("-C" ,directory))
(lowered-gexp-load-compiled-path
lowered))
(list "-c"
(object->string
(lowered-gexp-sexp lowered))))))))))))