~ruther/guix-local

3cb3a4e6e5c8252829a4ef9fd3d0f897c0c5e53f — Ludovic Courtès 8 years ago 3ede155 
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 <dannym@scratchpost.org>
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.
patch browse .tar.gz 
1 files changed, 2 insertions(+), 2 deletions(-)

M gnu/system/linux-initrd.scm

M gnu/system/linux-initrd.scm => gnu/system/linux-initrd.scm +2 -2
@@ 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.