system: 'operating-system-root-file-system' raises upon missing root.
* gnu/system.scm (operating-system-root-file-system): Raise when 'find' returns #f.master
parent
9e12da319b
commit
d7e9e0bbc9
|
@ -1032,9 +1032,13 @@ we're running in the final root."
|
||||||
|
|
||||||
(define (operating-system-root-file-system os)
|
(define (operating-system-root-file-system os)
|
||||||
"Return the root file system of OS."
|
"Return the root file system of OS."
|
||||||
(find (lambda (fs)
|
(or (find (lambda (fs)
|
||||||
(string=? "/" (file-system-mount-point fs)))
|
(string=? "/" (file-system-mount-point fs)))
|
||||||
(operating-system-file-systems os)))
|
(operating-system-file-systems os))
|
||||||
|
(raise (condition
|
||||||
|
(&message (message "missing root file system"))
|
||||||
|
(&error-location
|
||||||
|
(location (operating-system-location os)))))))
|
||||||
|
|
||||||
(define (operating-system-initrd-file os)
|
(define (operating-system-initrd-file os)
|
||||||
"Return a gexp denoting the initrd file of OS."
|
"Return a gexp denoting the initrd file of OS."
|
||||||
|
|
Reference in New Issue