From mboxrd@z Thu Jan  1 00:00:00 1970
Received: from eggs.gnu.org ([2001:4830:134:3::10]:32809)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1czOFE-00033x-2a
	for guix-patches@gnu.org; Sat, 15 Apr 2017 10:00:08 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1czOF9-0008Ja-5l
	for guix-patches@gnu.org; Sat, 15 Apr 2017 10:00:08 -0400
Received: from debbugs.gnu.org ([208.118.235.43]:50828)
	by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16)
	(Exim 4.71) (envelope-from <Debian-debbugs@debbugs.gnu.org>)
	id 1czOF9-0008JQ-2N
	for guix-patches@gnu.org; Sat, 15 Apr 2017 10:00:03 -0400
Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1czOF8-0007i2-MM
	for guix-patches@gnu.org; Sat, 15 Apr 2017 10:00:02 -0400
Subject: bug#26339: [PATCH 01/18] system: Pass <bootloader-parameter> to grub.
Resent-Message-ID: <handler.26339.B26339.149226474629531@debbugs.gnu.org>
Date: Sat, 15 Apr 2017 15:58:55 +0200
From: Danny Milosavljevic <dannym@scratchpost.org>
Message-ID: <20170415155855.1b09406f@scratchpost.org>
In-Reply-To: <20170402135242.2958-1-m.othacehe@gmail.com>
References: <20170402134916.2871-1-m.othacehe@gmail.com>
	<20170402135242.2958-1-m.othacehe@gmail.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
Content-Transfer-Encoding: 7bit
List-Id: <guix-patches.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/guix-patches>,
	<mailto:guix-patches-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/guix-patches/>
List-Post: <mailto:guix-patches@gnu.org>
List-Help: <mailto:guix-patches-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/guix-patches>,
	<mailto:guix-patches-request@gnu.org?subject=subscribe>
Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org
Sender: "Guix-patches" <guix-patches-bounces+kyle=kyleam.com@gnu.org>
To: Mathieu Othacehe <m.othacehe@gmail.com>
Cc: 26339@debbugs.gnu.org

> diff --git a/gnu/system/grub.scm b/gnu/system/grub.scm
> index 4f9bde6a6..f2838d633 100644
> --- a/gnu/system/grub.scm
> +++ b/gnu/system/grub.scm
> @@ -298,9 +309,9 @@ corresponding to old generations of the system."
>                    #$initrd)))))
>  
>    (mlet %store-monad ((sugar (eye-candy config
> -                                        (menu-entry-device (first entries))
> +                                        (menu-entry-device (first all-entries))
>                                          (menu-entry-device-mount-point
> -                                         (first entries))
> +                                         (first all-entries))
>                                          #:system system
>                                          #:port #~port)))
>      (define builder

... oops.  (first entries) could indeed fail if the list of profile generations is empty.  That shouldn't happen but anyway, the new way is safer.

Applied only this chunk to master as 0ab1e8ae8892c92fd7a1fd07430ba6f2b710668d.