aboutsummaryrefslogtreecommitdiff
path: root/gnu/system.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/system.scm')
-rw-r--r--gnu/system.scm5
1 files changed, 2 insertions, 3 deletions
diff --git a/gnu/system.scm b/gnu/system.scm
index c68455bddc..816e66415c 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -841,9 +841,8 @@ hardware-related operations as necessary when booting a Linux container."
(define (operating-system-root-file-system os)
"Return the root file system of OS."
- (find (match-lambda
- (($ <file-system> device title "/") #t)
- (x #f))
+ (find (lambda (fs)
+ (string=? "/" (file-system-mount-point fs)))
(operating-system-file-systems os)))
(define (operating-system-initrd-file os)