From 3cb3a4e6e5c8252829a4ef9fd3d0f897c0c5e53f Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 3 Mar 2018 00:04:17 +0100 Subject: 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 at . * 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 e7f97bb88d..7a7592bf0a 100644 --- a/gnu/system/linux-initrd.scm +++ b/gnu/system/linux-initrd.scm @@ -262,8 +262,8 @@ (define-syntax lookup-procedure (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. -- cgit v1.2.3