From 3035b50f28c1bcbc0a2bb09457a69ea9c06d69e0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 22 May 2014 21:57:39 +0200
Subject: [PATCH] linux-initrd: Build /dev/loop* nodes.

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

diff --git a/guix/build/linux-initrd.scm b/guix/build/linux-initrd.scm
index 8db9f02cafd..5be3c1ac2a0 100644
--- a/guix/build/linux-initrd.scm
+++ b/guix/build/linux-initrd.scm
@@ -168,6 +168,14 @@ (define (scope dir)
   (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)))
 
-- 
GitLab