From 48bd76e0099918ad54f41480cff03bf87a1c5ef0 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 14 Nov 2014 00:48:43 +0100
Subject: services: user-unmount: Change directory to "/" before unmounting.

* gnu/services/base.scm (user-unmount-service): Add 'chdir' call.
---
 gnu/services/base.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'gnu/services/base.scm')

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 @@ (define (known? mount-point)
                           (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
-- 
cgit v1.2.3