From 86c926d7f2dd4906d51dbcd7d39474116768a68d Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 3 Aug 2020 17:44:38 +0200
Subject: file-systems: Leave room for extension in serialized specs.

* gnu/system/file-systems.scm (spec->file-system): Ignore extra fields.
(file-system->spec): Add comment.
---
 gnu/system/file-systems.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm
index a62cf902bf..5c02dfac93 100644
--- a/gnu/system/file-systems.scm
+++ b/gnu/system/file-systems.scm
@@ -307,6 +307,7 @@ initrd code."
   (match fs
     (($ <file-system> device mount-point type flags options mount?
                       mount-may-fail? needed-for-boot? check?)
+     ;; Note: Add new fields towards the end for compatibility.
      (list (cond ((uuid? device)
                   `(uuid ,(uuid-type device) ,(uuid-bytevector device)))
                  ((file-system-label? device)
@@ -317,7 +318,8 @@ initrd code."
 (define (spec->file-system sexp)
   "Deserialize SEXP, a list, to the corresponding <file-system> object."
   (match sexp
-    ((device mount-point type flags options mount-may-fail? check?)
+    ((device mount-point type flags options mount-may-fail? check?
+             _ ...)                               ;placeholder for new fields
      (file-system
        (device (match device
                  (('uuid (? symbol? type) (? bytevector? bv))
-- 
cgit v1.2.3

b8d94eea6153a20e483'>commit</a><a href='/guix/diff/CODE-OF-CONDUCT?id=5436b673f53d27753b53ab8d94eea6153a20e483'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/CODE-OF-CONDUCT'>
<input type='hidden' name='id' value='5436b673f53d27753b53ab8d94eea6153a20e483'/><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=5436b673f53d27753b53ab8d94eea6153a20e483'>root</a>/<a href='/guix/log/CODE-OF-CONDUCT?id=5436b673f53d27753b53ab8d94eea6153a20e483'>CODE-OF-CONDUCT</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/CODE-OF-CONDUCT?id=5436b673f53d27753b53ab8d94eea6153a20e483&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>