From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:50398) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d02Yv-0000Zc-PF for guix-patches@gnu.org; Mon, 17 Apr 2017 05:03:10 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d02Ys-0001Vn-Ct for guix-patches@gnu.org; Mon, 17 Apr 2017 05:03:09 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:53309) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1d02Ys-0001Vg-Af for guix-patches@gnu.org; Mon, 17 Apr 2017 05:03:06 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1d02Ys-0005RR-0H for guix-patches@gnu.org; Mon, 17 Apr 2017 05:03:06 -0400 Subject: bug#26339: [PATCH v2 08/12] scripts: system: Remove unused variables. Resent-Message-ID: From: Mathieu Othacehe Date: Mon, 17 Apr 2017 11:01:44 +0200 Message-Id: <20170417090148.13791-9-m.othacehe@gmail.com> In-Reply-To: <20170417090148.13791-1-m.othacehe@gmail.com> References: <20170417090148.13791-1-m.othacehe@gmail.com> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 26339@debbugs.gnu.org * 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