guix/guix
3
4
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

system: 'operating-system-root-file-system' raises upon missing root.

Browse source 
* gnu/system.scm (operating-system-root-file-system): Raise when 'find'
returns #f.
This commit is contained in:
Ludovic Courtès 2020-07-15 01:32:25 +02:00
parent 9e12da319b
commit d7e9e0bbc9
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/system.scm
View file

@ -1032,9 +1032,13 @@ we're running in the final root."
(define (operating-system-root-file-system os)
"Return the root file system of OS."
(find (lambda (fs)
(string=? "/" (file-system-mount-point fs)))
(operating-system-file-systems os)))
(or (find (lambda (fs)
(string=? "/" (file-system-mount-point fs)))
(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)
"Return a gexp denoting the initrd file of OS."