diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-07-15 01:32:25 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-07-15 01:36:24 +0200 |
| commit | d7e9e0bbc9aadec3e1830767a8771bfbe9c43155 (patch) | |
| tree | 7a978673651f0ffda8c121a31f88a775e88ae2a9 | |
| parent | 9e12da319b779d1c7f3d46ad2fd4025d4ffc228f (diff) | |
| download | guix-d7e9e0bbc9aadec3e1830767a8771bfbe9c43155.tar guix-d7e9e0bbc9aadec3e1830767a8771bfbe9c43155.tar.gz | |
system: 'operating-system-root-file-system' raises upon missing root.
* gnu/system.scm (operating-system-root-file-system): Raise when 'find'
returns #f.
| -rw-r--r-- | gnu/system.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gnu/system.scm b/gnu/system.scm index e7f85e4358..de5f25a35d 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -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." |