summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/scripts/environment.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 7103fdaf202..3c669067935 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -989,9 +989,8 @@ otherwise, return MAPPINGS."
(let ((target (file-system-mapping-target mapping)))
(if (string-prefix? home target)
(file-system-mapping
- (source (file-system-mapping-source mapping))
- (target (override-user-dir user home target))
- (writable? (file-system-mapping-writable? mapping)))
+ (inherit mapping)
+ (target (override-user-dir user home target)))
mapping)))
mappings)))