aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-07-03 22:24:56 +0200
committerLudovic Courtès <ludo@gnu.org>2014-07-03 22:24:56 +0200
commitdccab4df202b25d493a1ab370037f57ec92c5cf9 (patch)
tree3aebab6f9ba7dfb6277467d68bf3544bd7ea186b
parent615215a5357268cc6f40c96d2c9ed09ff58f938a (diff)
downloadguix-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.scm9
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)