diff options
| author | Mark H Weaver <mhw@netris.org> | 2015-10-17 19:08:53 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2015-10-17 19:08:53 -0400 |
| commit | ccb522324bd99cc379ada4a1da5b8bcfd7d12c5b (patch) | |
| tree | bd73bf8f8dabc046c12c53295b18daad49379887 /gnu/build/file-systems.scm | |
| parent | 5fba12ecd3146e17d826167b6b9ffdfcbe2a49c9 (diff) | |
| parent | 9e2592a3466c72dbfb64494e1316ce8af1554647 (diff) | |
| download | guix-ccb522324bd99cc379ada4a1da5b8bcfd7d12c5b.tar guix-ccb522324bd99cc379ada4a1da5b8bcfd7d12c5b.tar.gz | |
Merge branch 'master' into dbus-update
Diffstat (limited to 'gnu/build/file-systems.scm')
| -rw-r--r-- | gnu/build/file-systems.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm index 377bec278e..00af35d3df 100644 --- a/gnu/build/file-systems.scm +++ b/gnu/build/file-systems.scm @@ -348,7 +348,7 @@ run a file system check." ;; in the case of a bind mount, a regular file may be needed. (if (and (= MS_BIND (logand flags MS_BIND)) (regular-file? source)) - (begin + (unless (file-exists? mount-point) (mkdir-p (dirname mount-point)) (call-with-output-file mount-point (const #t))) (mkdir-p mount-point)) |