From debbugs-submit-bounces@debbugs.gnu.org Thu Jul 02 17:52:06 2020 Received: (at 42122) by debbugs.gnu.org; 2 Jul 2020 21:52:06 +0000 Received: from localhost ([127.0.0.1]:55880 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jr77k-00050D-BG for submit@debbugs.gnu.org; Thu, 02 Jul 2020 17:52:06 -0400 Received: from eggs.gnu.org ([209.51.188.92]:60754) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1jr77j-0004zi-1U for 42122@debbugs.gnu.org; Thu, 02 Jul 2020 17:52:03 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:42033) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jr77d-0002VM-OU; Thu, 02 Jul 2020 17:51:57 -0400 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=59970 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1jr77d-0004Fh-6e; Thu, 02 Jul 2020 17:51:57 -0400 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: "Jan \(janneke\) Nieuwenhuizen" Subject: Re: [bug#42122] [PATCH 3/3] guix system: "describe" displays multiboot info. References: <20200629135817.12784-1-janneke@gnu.org> <20200629135817.12784-3-janneke@gnu.org> Date: Thu, 02 Jul 2020 23:51:56 +0200 In-Reply-To: <20200629135817.12784-3-janneke@gnu.org> (Jan Nieuwenhuizen's message of "Mon, 29 Jun 2020 15:58:17 +0200") Message-ID: <87mu4hpoub.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: 42122 Cc: 42122@debbugs.gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) "Jan (janneke) Nieuwenhuizen" skribis: > * guix/scripts/system.scm (display-system-generation): Display > multiboot-modules commands if set. [...] > + (when (pair? multiboot-modules) > + (format #t (G_ " multiboot: ~a~%") > + (string-join (map car multiboot-modules) "\n "))) Rather like: (match multiboot-modules (() #f) (((modules . _) ...) =E2=80=A6 (string-join modules "\n ") =E2=80=A6)) Otherwise LGTM, thank you! Ludo=E2=80=99.