~ruther/guix-local: linux-initrd: Append to /etc/mtab.

02139eb9b2bdbe1b342a0550dd8725a764716c28 — Ludovic Courtès 12 years ago 217a5b8

linux-initrd: Append to /etc/mtab.

* guix/build/linux-initrd.scm (mount-file-system): Open /etc/mtab in
  append mode.

patch browse .tar.gz

1 files changed, 1 insertions(+), 1 deletions(-)

M guix/build/linux-initrd.scm

M guix/build/linux-initrd.scm => guix/build/linux-initrd.scm +1 -1

@@ 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))))))