linux-boot: Don't create /root before it's used.
* gnu/build/linux-boot.scm (boot-system): Postpone the MKDIR of /root. Change-Id: I589316a5ddf41cada02173ed4dd5b7df09b795e8
parent
66942d042e
commit
d553249f72
|
@ -611,10 +611,6 @@ upon error."
|
||||||
the root file system...\n" root-delay)
|
the root file system...\n" root-delay)
|
||||||
(sleep root-delay)))
|
(sleep root-delay)))
|
||||||
|
|
||||||
;; Prepare the real root file system under /root.
|
|
||||||
(unless (file-exists? "/root")
|
|
||||||
(mkdir "/root"))
|
|
||||||
|
|
||||||
(when (procedure? pre-mount)
|
(when (procedure? pre-mount)
|
||||||
;; Do whatever actions are needed before mounting the root file
|
;; Do whatever actions are needed before mounting the root file
|
||||||
;; system--e.g., installing device mappings. Error out when the
|
;; system--e.g., installing device mappings. Error out when the
|
||||||
|
@ -631,6 +627,10 @@ the root file system...\n" root-delay)
|
||||||
(false-if-exception ; failure is not fatal
|
(false-if-exception ; failure is not fatal
|
||||||
(resume-if-hibernated (find-long-option "resume" args))))
|
(resume-if-hibernated (find-long-option "resume" args))))
|
||||||
|
|
||||||
|
;; Prepare the real root file system under /root.
|
||||||
|
(unless (file-exists? "/root")
|
||||||
|
(mkdir "/root"))
|
||||||
|
|
||||||
(setenv "EXT2FS_NO_MTAB_OK" "1")
|
(setenv "EXT2FS_NO_MTAB_OK" "1")
|
||||||
|
|
||||||
;; Mount the root file system.
|
;; Mount the root file system.
|
||||||
|
|
Reference in New Issue