From d7e9e0bbc9aadec3e1830767a8771bfbe9c43155 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 15 Jul 2020 01:32:25 +0200 Subject: system: 'operating-system-root-file-system' raises upon missing root. * gnu/system.scm (operating-system-root-file-system): Raise when 'find' returns #f. --- gnu/system.scm | 10 +++++++--- 1 file 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." -- cgit v1.2.3