mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

linux-initrd: Remove unused local procedure.

Browse source 
* guix/build/linux-initrd.scm (boot-system)[resolve]: Remove.
This commit is contained in:
Ludovic Courtès 2014-07-03 22:24:56 +02:00
parent 615215a535
commit dccab4df20
1 changed files with 0 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/build/linux-initrd.scm
View file

@ -600,15 +600,6 @@ (define* (boot-system #:key
When VOLATILE-ROOT? is true, the root file system is writable but any changes When VOLATILE-ROOT? is true, the root file system is writable but any changes
to it are lost." 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? (define root-mount-point?
(match-lambda (match-lambda
((device _ "/" _ ...) #t) ((device _ "/" _ ...) #t)