~ruther/guix-local

3035b50f28c1bcbc0a2bb09457a69ea9c06d69e0 — Ludovic Courtès 11 years ago ca143f1
linux-initrd: Build /dev/loop* nodes.

* guix/build/linux-initrd.scm (make-essential-device-nodes): Build
  /dev/loop[0-7].
1 files changed, 8 insertions(+), 0 deletions(-)

M guix/build/linux-initrd.scm
M guix/build/linux-initrd.scm => guix/build/linux-initrd.scm +8 -0
@@ 168,6 168,14 @@ Return the value associated with OPTION, or #f on failure."
  (symlink "/proc/self/fd/1" (scope "dev/stdout"))
  (symlink "/proc/self/fd/2" (scope "dev/stderr"))

  ;; Loopback devices.
  (let loop ((i 0))
    (when (< i 8)
      (mknod (scope (string-append "dev/loop" (number->string i)))
             'block-special #o660
             (device-number 7 i))
      (loop (+ 1 i))))

  ;; File systems in user space (FUSE).
  (mknod (scope "dev/fuse") 'char-special #o666 (device-number 10 229)))