bug#26339: [PATCH v2 08/12] scripts: system: Remove unused variables.

[Mathieu Othacehe]

* guix/scripts/system.scm (profile-bootloader-entries): Remove root and
  root-device unused variables.
---
 guix/scripts/system.scm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index c2212ed14..b1104eb9b 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -389,11 +389,7 @@ NUMBERS, which is a list of generation numbers."
     (unless-file-not-found
      (let* ((file             (string-append system "/parameters"))
             (params           (call-with-input-file file
-                                read-boot-parameters))
-            (root             (boot-parameters-root-device params))
-            (root-device      (if (bytevector? root)
-                                  (uuid->string root)
-                                  root)))
+                                read-boot-parameters)))
        (boot-parameters
         (inherit params)
         (label (string-append (boot-parameters-label params) " (#"
-- 
2.12.2