~ruther/guix-local

dccab4df202b25d493a1ab370037f57ec92c5cf9 — Ludovic Courtès 11 years ago 615215a
linux-initrd: Remove unused local procedure.

* guix/build/linux-initrd.scm (boot-system)[resolve]: Remove.
1 files changed, 0 insertions(+), 9 deletions(-)

M guix/build/linux-initrd.scm
M guix/build/linux-initrd.scm => guix/build/linux-initrd.scm +0 -9
@@ 600,15 600,6 @@ the new root.

When VOLATILE-ROOT? is true, the root file system is writable but any changes
to it are lost."
  (define (resolve file)
    ;; If FILE is a symlink to an absolute file name, resolve it as if we were
    ;; under /root.
    (let ((st (lstat file)))
      (if (eq? 'symlink (stat:type st))
          (let ((target (readlink file)))
            (resolve (string-append "/root" target)))
          file)))

  (define root-mount-point?
    (match-lambda
     ((device _ "/" _ ...) #t)