diff options
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/services/base.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 1536320671a..4a4f1d17c18 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm | |||
| @@ -534,7 +534,8 @@ upon boot." | |||
| 534 | (let ((errno (system-error-errno args))) | 534 | (let ((errno (system-error-errno args))) |
| 535 | (format #t "failed to unmount '~a': ~a~%" | 535 | (format #t "failed to unmount '~a': ~a~%" |
| 536 | mount-point (strerror errno)))))) | 536 | mount-point (strerror errno)))))) |
| 537 | (filter (negate known?) (mount-points))) | 537 | ;; Unmount mount points in reverse order of mounting. |
| 538 | (reverse (filter (negate known?) (mount-points)))) | ||
| 538 | #f)))) | 539 | #f)))) |
| 539 | 540 | ||
| 540 | (cons* sink user-unmount | 541 | (cons* sink user-unmount |