From 856be823235d488bf5d580b0b0340ec93d042e28 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 10 Mar 2017 14:41:00 +0100
Subject: 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(-)

(limited to 'gnu/system.scm')

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 @@ (define* (operating-system-profile os #:key 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)
-- 
cgit v1.2.3