diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-05-10 21:47:05 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-05-10 21:47:05 +0200 |
| commit | 02139eb9b2bdbe1b342a0550dd8725a764716c28 (patch) | |
| tree | 6559ff5c7cd241da4ebab2f79601cd629254bc46 | |
| parent | 217a5b852e02775123a30131f63684c09bd6ac77 (diff) | |
| download | gnu-guix-02139eb9b2bdbe1b342a0550dd8725a764716c28.tar gnu-guix-02139eb9b2bdbe1b342a0550dd8725a764716c28.tar.gz | |
linux-initrd: Append to /etc/mtab.
* guix/build/linux-initrd.scm (mount-file-system): Open /etc/mtab in
append mode.
| -rw-r--r-- | guix/build/linux-initrd.scm | 2 |
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)))))) |