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(-)

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)
-- 
cgit v1.2.3

<input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Wojtek's customized Guix</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=8db83f0259014a8559da6df5fcc7fdae92d1f238'>refs</a><a class='active' href='/guix/log/gnu/packages/toys.scm'>log</a><a href='/guix/tree/gnu/packages/toys.scm?id=8db83f0259014a8559da6df5fcc7fdae92d1f238'>tree</a><a href='/guix/commit/gnu/packages/toys.scm?id=8db83f0259014a8559da6df5fcc7fdae92d1f238'>commit</a><a href='/guix/diff/gnu/packages/toys.scm?id=8db83f0259014a8559da6df5fcc7fdae92d1f238'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/toys.scm'>
<input type='hidden' name='id' value='8db83f0259014a8559da6df5fcc7fdae92d1f238'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=8db83f0259014a8559da6df5fcc7fdae92d1f238'>root</a>/<a href='/guix/log/gnu?id=8db83f0259014a8559da6df5fcc7fdae92d1f238'>gnu</a>/<a href='/guix/log/gnu/packages?id=8db83f0259014a8559da6df5fcc7fdae92d1f238'>packages</a>/<a href='/guix/log/gnu/packages/toys.scm?id=8db83f0259014a8559da6df5fcc7fdae92d1f238'>toys.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/toys.scm?id=8db83f0259014a8559da6df5fcc7fdae92d1f238&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2018-01-18 04:26:42 +0100'>2018-01-18</span></td><td><a href='/guix/commit/gnu/packages/toys.scm?id=5d5ad3da881566c2cfe01bd70e6d759f241fc73a'>gnu: Add sl.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-03-07 12:48:18 +0100'>2020-03-07</span></td><td><a href='/guix/commit/gnu/packages/spice.scm?id=c0dc4179091f85fe4b8a2bbdb07c154a7f0408ed'>gnu: spice: Update to 0.14.3.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-01-12 22:23:27 +0100'>2020-01-12</span></td><td><a href='/guix/commit/gnu/packages/spice.scm?id=20eb3b7e747b25f5d2c85167158353cc74e09e41'>gnu: spice: Fix test failure on armhf-linux.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>