summaryrefslogtreecommitdiff
path: root/gnu/system.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-03-10 14:41:00 +0100
committerLudovic Courtès <ludo@gnu.org>2017-03-10 14:48:06 +0100
commit856be823235d488bf5d580b0b0340ec93d042e28 (patch)
tree5c56cb52ceaadcf53ea359f984b952b7c656e427 /gnu/system.scm
parentfe2b6434f02c8abb26aebb59c4e0d0ccacb4fc90 (diff)
downloadpatches-856be823235d488bf5d580b0b0340ec93d042e28.tar
patches-856be823235d488bf5d580b0b0340ec93d042e28.tar.gz
system: Avoid '_' as a pattern variable in 'match'.
* gnu/system.scm (operating-system-root-file-system): Don't use '_' as a wildcard in 'match', to cope with literal semantics in 2.2.
Diffstat (limited to 'gnu/system.scm')
-rw-r--r--gnu/system.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/system.scm b/gnu/system.scm
index c8d4d014ed..0f52351cf0 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -652,8 +652,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> _ _ "/") #t)
- (_ #f))
+ (($ <file-system> device title "/") #t)
+ (x #f))
(operating-system-file-systems os)))
(define (operating-system-initrd-file os)