bug#26339: [PATCH 13/18] 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 2ad210207..d3118266e 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -371,11 +371,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