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)