Browse Source

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

* gnu/system.scm (operating-system-root-file-system): Raise when 'find'
returns #f.
gn-latest-20200725
Ludovic Courtès 1 year ago
parent
commit
d7e9e0bbc9
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
1 changed files with 7 additions and 3 deletions
  1. +7
    -3
      gnu/system.scm

+ 7
- 3
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."


Loading…
Cancel
Save