From ab20d74a4638dc6295aa9b9af276d2a98f238f9d Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 9 Sep 2016 23:38:24 +0200 Subject: system: Build the initrd file name with 'file-append'. * gnu/system.scm (operating-system-initrd-file) (operating-system-grub.cfg): Use 'file-append' to construct the initrd file name. --- gnu/system.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gnu/system.scm b/gnu/system.scm index 18b2806fe9..4c1de384fa 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -660,7 +660,7 @@ (define make-initrd (mlet %store-monad ((initrd (make-initrd boot-file-systems #:linux (operating-system-kernel os) #:mapped-devices mapped-devices))) - (return #~(string-append #$initrd "/initrd")))) + (return (file-append initrd "/initrd")))) (define (locale-name->definition* name) "Variant of 'locale-name->definition' that raises an error upon failure." @@ -738,7 +738,7 @@ (define* (operating-system-grub.cfg os #:optional (old-entries '())) #~(string-append "--load=" #$system "/boot") (operating-system-kernel-arguments os))) - (initrd #~(string-append #$system "/initrd")))))) + (initrd (file-append system "/initrd")))))) (grub-configuration-file (operating-system-bootloader os) store-fs entries #:old-entries old-entries))) -- cgit v1.2.3