diff options
| -rw-r--r-- | gnu/services/base.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 0c45d54d17..712222bdde 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -161,6 +161,9 @@ in KNOWN-MOUNT-POINTS when it is stopped." (cons* "/proc" "/sys" '#$known-mount-points))) + ;; Make sure we don't keep the user's mount points busy. + (chdir "/") + (for-each (lambda (mount-point) (format #t "unmounting '~a'...~%" mount-point) (catch 'system-error |