1 files changed, 13 insertions(+), 0 deletions(-)

M gnu/build/hurd-boot.scm

@@ 249,6 249,19 @@ set."
                     (iota 10 0))
       ,@(append-map (lambda (n)
                       (let* ((n (number->string n))
+                             (disk (string-append "hd" n))
+                             (drive (string-append "dev/" disk)))
+                        `((,drive ("/hurd/storeio" ,disk) #o600)
+                          ,@(map (lambda (p)
+                                   (let ((p (number->string p)))
+                                     `(,(string-append drive "s" p)
+                                       ("/hurd/storeio"
+                                        ,(string-append disk "s" p))
+                                       #o660)))
+                                 (iota 4 1)))))
+                    (iota 4 0))
+      ,@(append-map (lambda (n)
+                      (let* ((n (number->string n))
                              (drive (string-append "dev/wd" n))
                              (disk (string-append "@/dev/disk:wd" n)))
                         `((,drive ("/hurd/storeio" ,disk) #o600)