summaryrefslogtreecommitdiff
path: root/guix/build
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-05-10 21:47:05 +0200
committerLudovic Courtès <ludo@gnu.org>2014-05-10 21:47:05 +0200
commit02139eb9b2bdbe1b342a0550dd8725a764716c28 (patch)
tree6559ff5c7cd241da4ebab2f79601cd629254bc46 /guix/build
parent217a5b852e02775123a30131f63684c09bd6ac77 (diff)
linux-initrd: Append to /etc/mtab.
* guix/build/linux-initrd.scm (mount-file-system): Open /etc/mtab in append mode.
Diffstat (limited to 'guix/build')
-rw-r--r--guix/build/linux-initrd.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/build/linux-initrd.scm b/guix/build/linux-initrd.scm
index 16c741f931..83636dfd73 100644
--- a/guix/build/linux-initrd.scm
+++ b/guix/build/linux-initrd.scm
@@ -285,7 +285,7 @@ run a file system check."
;; Update /etc/mtab.
(mkdir-p (string-append root "/etc"))
- (let ((port (open-output-file (string-append root "/etc/mtab"))))
+ (let ((port (open-file (string-append root "/etc/mtab") "a")))
(format port "~a ~a ~a ~a 0 0~%"
source mount-point type options)
(close-port port))))))