summaryrefslogtreecommitdiff
path: root/gnu/system.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/system.scm')
-rw-r--r--gnu/system.scm10
1 files changed, 7 insertions, 3 deletions
diff --git a/gnu/system.scm b/gnu/system.scm
index 96ea153cd06..476720b9f9b 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -81,6 +81,8 @@
81 operating-system-mapped-devices 81 operating-system-mapped-devices
82 operating-system-file-systems 82 operating-system-file-systems
83 operating-system-store-file-system 83 operating-system-store-file-system
84 operating-system-user-mapped-devices
85 operating-system-boot-mapped-devices
84 operating-system-activation-script 86 operating-system-activation-script
85 operating-system-user-accounts 87 operating-system-user-accounts
86 operating-system-shepherd-service-names 88 operating-system-shepherd-service-names
@@ -208,8 +210,9 @@ as 'needed-for-boot'."
208 "Return a file system among FILE-SYSTEMS that uses DEVICE, or #f." 210 "Return a file system among FILE-SYSTEMS that uses DEVICE, or #f."
209 (let ((target (string-append "/dev/mapper/" (mapped-device-target device)))) 211 (let ((target (string-append "/dev/mapper/" (mapped-device-target device))))
210 (find (lambda (fs) 212 (find (lambda (fs)
211 (and (eq? 'device (file-system-title fs)) 213 (or (member device (file-system-dependencies fs))
212 (string=? (file-system-device fs) target))) 214 (and (eq? 'device (file-system-title fs))
215 (string=? (file-system-device fs) target))))
213 file-systems))) 216 file-systems)))
214 217
215(define (operating-system-user-mapped-devices os) 218(define (operating-system-user-mapped-devices os)
@@ -731,7 +734,8 @@ this file is the reconstruction of GRUB menu entries for old configurations."
731 (kernel #$(operating-system-kernel os)) 734 (kernel #$(operating-system-kernel os))
732 (kernel-arguments 735 (kernel-arguments
733 #$(operating-system-kernel-arguments os)) 736 #$(operating-system-kernel-arguments os))
734 (initrd #$initrd))))) 737 (initrd #$initrd))
738 #:set-load-path? #f)))
735 739
736 740
737;;; 741;;;