diff options
author | Ludovic Courtès <ludo@gnu.org> | 2014-07-03 22:24:56 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2014-07-03 22:24:56 +0200 |
commit | dccab4df202b25d493a1ab370037f57ec92c5cf9 (patch) | |
tree | 3aebab6f9ba7dfb6277467d68bf3544bd7ea186b | |
parent | 615215a5357268cc6f40c96d2c9ed09ff58f938a (diff) | |
download | guix-dccab4df202b25d493a1ab370037f57ec92c5cf9.tar guix-dccab4df202b25d493a1ab370037f57ec92c5cf9.tar.gz |
linux-initrd: Remove unused local procedure.
* guix/build/linux-initrd.scm (boot-system)[resolve]: Remove.
-rw-r--r-- | guix/build/linux-initrd.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/guix/build/linux-initrd.scm b/guix/build/linux-initrd.scm index 7778c2ca97..754a88f57c 100644 --- a/guix/build/linux-initrd.scm +++ b/guix/build/linux-initrd.scm @@ -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) |