diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-03-10 14:41:00 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-03-10 14:48:06 +0100 |
| commit | 856be823235d488bf5d580b0b0340ec93d042e28 (patch) | |
| tree | 5c56cb52ceaadcf53ea359f984b952b7c656e427 /gnu/system.scm | |
| parent | fe2b6434f02c8abb26aebb59c4e0d0ccacb4fc90 (diff) | |
| download | patches-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.scm | 4 |
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) |