diff options
Diffstat (limited to 'gnu/system.scm')
| -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 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 | ;;; |
