* guix/scripts/environment.scm (override-user-mappings): Use inherit.
Change-Id: Iadd9b838f6442a8080998ed7e07414db562068bf
---
guix/scripts/environment.scm | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 7103fdaf20..3c66906793 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -989,9 +989,8 @@ (define (override-user-mappings user home 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)))
--
2.49.0