01/04: linux-initrd: 'file-system-modules' returns the right module list.

[Ludovic Courtès]

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.