summaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
Diffstat (limited to 'gnu')
-rw-r--r--gnu/system/file-systems.scm10
1 files changed, 7 insertions, 3 deletions
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm
index ef08bf4de53..8e654394b00 100644
--- a/gnu/system/file-systems.scm
+++ b/gnu/system/file-systems.scm
@@ -303,10 +303,14 @@ string obtained can be used as the option field of a <file-system> record."
303 ","))) 303 ",")))
304 304
305(define (file-system-needed-for-boot? fs) 305(define (file-system-needed-for-boot? fs)
306 "Return true if FS has the 'needed-for-boot?' flag set, or if it holds the 306 "Return true if FS has the 'needed-for-boot?' flag set, or if it's used in the
307store--e.g., if FS is the root file system." 307boot process--e.g., if FS is the root file system / holds the store."
308 (or (%file-system-needed-for-boot? fs) 308 (or (%file-system-needed-for-boot? fs)
309 (and (file-prefix? (file-system-mount-point fs) (%store-prefix)) 309 (and (any (cut file-prefix? (file-system-mount-point fs) <>)
310 (list (%store-prefix)
311 "/etc"
312 "/var/lib"
313 "/var/log"))
310 (not (memq 'bind-mount (file-system-flags fs)))))) 314 (not (memq 'bind-mount (file-system-flags fs))))))
311 315
312(define (file-system->spec fs) 316(define (file-system->spec fs)