[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: system: Avoid '_' as a pattern variable in 'match'.
From: |
Ludovic Courtès |
Subject: |
03/03: system: Avoid '_' as a pattern variable in 'match'. |
Date: |
Fri, 10 Mar 2017 08:48:24 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 856be823235d488bf5d580b0b0340ec93d042e28
Author: Ludovic Courtès <address@hidden>
Date: Fri Mar 10 14:41:00 2017 +0100
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.
---
gnu/system.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gnu/system.scm b/gnu/system.scm
index c8d4d01..0f52351 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)