summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--nonguix/multiarch-container.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/nonguix/multiarch-container.scm b/nonguix/multiarch-container.scm
index 700da05..15dd054 100644
--- a/nonguix/multiarch-container.scm
+++ b/nonguix/multiarch-container.scm
@@ -342,8 +342,11 @@ in a sandboxed FHS environment."
342 ,@(exists-> (getenv "XAUTHORITY")) 342 ,@(exists-> (getenv "XAUTHORITY"))
343 #$@(ngc-shared container))) 343 #$@(ngc-shared container)))
344 (DEBUG (equal? (getenv "DEBUG") "1")) 344 (DEBUG (equal? (getenv "DEBUG") "1"))
345 (extra-shares (if (getenv "GUIX_SANDBOX_EXTRA_SHARES") 345 ;; Make sure this environment variable is not set to the
346 (string-split (getenv "GUIX_SANDBOX_EXTRA_SHARES") #\:) 346 ;; emptry string or else guix shell will fail to start.
347 (extra-shares-env (getenv "GUIX_SANDBOX_EXTRA_SHARES"))
348 (extra-shares (if (and extra-shares-env (not (string= extra-shares-env "")))
349 (string-split extra-shares-env #\:)
347 #f)) 350 #f))
348 (args (cdr (command-line))) 351 (args (cdr (command-line)))
349 (command (if DEBUG '() 352 (command (if DEBUG '()