[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/04: linux-initrd: 'file-system-modules' returns the right module list
From: |
Ludovic Courtès |
Subject: |
01/04: linux-initrd: 'file-system-modules' returns the right module list. |
Date: |
Sat, 3 Mar 2018 03:41:27 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 3cb3a4e6e5c8252829a4ef9fd3d0f897c0c5e53f
Author: Ludovic Courtès <address@hidden>
Date: Sat Mar 3 00:04:17 2018 +0100
linux-initrd: 'file-system-modules' returns the right module list.
Fixes a bug whereby, for an "iso9660" file system, it would return
'("iso9660" "isofs"), i.e., both the key and the value.
Reported by Danny Milosavljevic <address@hidden>
at <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=30629#115>.
* gnu/system/linux-initrd.scm (lookup-procedure): 'vhash-assoc' returns
a key/value pair; match it.
---
gnu/system/linux-initrd.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gnu/system/linux-initrd.scm b/gnu/system/linux-initrd.scm
index e7f97bb..7a7592b 100644
--- a/gnu/system/linux-initrd.scm
+++ b/gnu/system/linux-initrd.scm
@@ -262,8 +262,8 @@ FILE-SYSTEMS."
(let ((table (vhash mapping ...)))
(lambda (key)
(match (vhash-assoc key table)
- (#f default)
- (value value)))))))
+ (#f default)
+ ((key . value) value)))))))
(define file-system-type-modules
;; Given a file system type, return the list of modules it needs.