From debbugs-submit-bounces@debbugs.gnu.org Thu Dec 01 13:10:04 2022 Received: (at submit) by debbugs.gnu.org; 1 Dec 2022 18:10:04 +0000 Received: from localhost ([127.0.0.1]:41150 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1p0o0Z-0000FG-U8 for submit@debbugs.gnu.org; Thu, 01 Dec 2022 13:10:04 -0500 Received: from lists.gnu.org ([209.51.188.17]:34028) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1p0o0U-0000Ei-KK for submit@debbugs.gnu.org; Thu, 01 Dec 2022 13:10:02 -0500 Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1p0o0U-0005Bn-D2 for guix-patches@gnu.org; Thu, 01 Dec 2022 13:09:58 -0500 Received: from smtpm5.myservices.hosting ([185.26.105.236]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1p0o0R-00089b-EU for guix-patches@gnu.org; Thu, 01 Dec 2022 13:09:57 -0500 Received: from mail1.netim.hosting (unknown [185.26.106.172]) by smtpm5.myservices.hosting (Postfix) with ESMTP id A725C20C03 for ; Thu, 1 Dec 2022 19:09:52 +0100 (CET) Received: from localhost (localhost [127.0.0.1]) by mail1.netim.hosting (Postfix) with ESMTP id 60BEC80097; Thu, 1 Dec 2022 19:09:52 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at mail1.netim.hosting Received: from mail1.netim.hosting ([127.0.0.1]) by localhost (mail1-1.netim.hosting [127.0.0.1]) (amavisd-new, port 10026) with ESMTP id mojQ6jAtVhku; Thu, 1 Dec 2022 19:09:51 +0100 (CET) Received: from guix-nuc.home.arpa (bl12-93-156.dsl.telepac.pt [85.245.93.156]) (Authenticated sender: lumen@makinata.eu) by mail1.netim.hosting (Postfix) with ESMTPSA id A995680093; Thu, 1 Dec 2022 19:09:51 +0100 (CET) From: mirai@makinata.eu To: guix-patches@gnu.org Subject: [PATCH] services: configuration: rework alist? procedure Date: Thu, 1 Dec 2022 18:09:47 +0000 Message-Id: X-Mailer: git-send-email 2.38.1 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit Received-SPF: pass client-ip=185.26.105.236; envelope-from=mirai@makinata.eu; helo=smtpm5.myservices.hosting X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-Spam-Score: -1.3 (-) X-Debbugs-Envelope-To: submit Cc: Bruno Victal 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: -2.3 (--) From: Bruno Victal * gnu/services/configuration.scm: rework alist? procedure --- gnu/services/configuration.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm index dacfc52ba9..5bbb032c66 100644 --- a/gnu/services/configuration.scm +++ b/gnu/services/configuration.scm @@ -436,7 +436,11 @@ (define (list-of pred?) (define list-of-strings? (list-of string?)) -(define alist? list?) +(define alist? + (match-lambda + (() #t) + ((and (= car head) (= cdr tail)) (and (pair? head) (alist? tail))) + (_ #f))) (define serialize-file-like empty-serializer) base-commit: 748ec628826cea3faa3679074d87fae9bc810080 -- 2.38.1 From debbugs-submit-bounces@debbugs.gnu.org Thu Dec 08 06:59:14 2022 Received: (at 59747-done) by debbugs.gnu.org; 8 Dec 2022 11:59:14 +0000 Received: from localhost ([127.0.0.1]:56357 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1p3FYY-00060H-I1 for submit@debbugs.gnu.org; Thu, 08 Dec 2022 06:59:14 -0500 Received: from eggs.gnu.org ([209.51.188.92]:56166) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1p3FYW-00060A-Qs for 59747-done@debbugs.gnu.org; Thu, 08 Dec 2022 06:59:13 -0500 Received: from fencepost.gnu.org ([2001:470:142:3::e]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1p3FYR-0008TM-Ce; Thu, 08 Dec 2022 06:59:07 -0500 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=gnu.org; s=fencepost-gnu-org; h=MIME-Version:In-Reply-To:Date:References:Subject:To: From; bh=DumHM0bJJmkm6eDZwNYytRBwhyxvSF3wi++wESoyODs=; b=dXYWOCpbTn1oM1OBXWgp iJC8BDCUBcnDen4c2GWWQBUOPzrXfsmBlHYf03nMmYEAhLXIkT8dSiamM8h+/6fFgrkHau8G3XE2F +c8fgHr4YefBAVUZI83kkq+tnCF/MylFHb6d2safbc2rNGuXihlTis0rL9XXIEI8Vrlr/VqBvv7uK XaL3D7Mj9HUP0kUW+z/UPCow/I+qHJv4hNY7EWToUyTFGh5MYrCuGxcEx1UdIlzWHCfC6rPXQau3B KktD6gQCReds4pO6wtvCEvjzu/Nbyv8QM4KROyORqvBAU876zTSetlPJHazRzBX+QnEy9KaBesQGR v7v/PlxiwIdKzQ==; Received: from 91-160-117-201.subs.proxad.net ([91.160.117.201] helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1p3FYQ-0000JJ-TI; Thu, 08 Dec 2022 06:59:07 -0500 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: mirai@makinata.eu Subject: Re: bug#59747: [PATCH] services: configuration: rework alist? procedure References: Date: Thu, 08 Dec 2022 12:59:05 +0100 In-Reply-To: (mirai@makinata.eu's message of "Thu, 1 Dec 2022 18:09:47 +0000") Message-ID: <87wn72ds3a.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.2 (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: 59747-done Cc: 59747-done@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 (---) mirai@makinata.eu skribis: > From: Bruno Victal > > * gnu/services/configuration.scm: rework alist? procedure I simplified it a bit and applied. Note that there are two other =E2=80=98*-alist?=E2=80=99 procedures=E2=80=A6 But really, it=E2=80=99s the kind of predicate that shouldn=E2=80=99t be us= ed because there=E2=80=99s no disjoint alist data type in the first place. It may be a sign that we should use records instead in those places. Thanks, Ludo=E2=80=99. From debbugs-submit-bounces@debbugs.gnu.org Thu Dec 08 07:07:15 2022 Received: (at 59747) by debbugs.gnu.org; 8 Dec 2022 12:07:15 +0000 Received: from localhost ([127.0.0.1]:56413 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1p3FgI-0008Pf-U1 for submit@debbugs.gnu.org; Thu, 08 Dec 2022 07:07:15 -0500 Received: from smtpm2.myservices.hosting ([185.26.105.233]:60212) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1p3FgH-0008PZ-7q for 59747@debbugs.gnu.org; Thu, 08 Dec 2022 07:07:13 -0500 Received: from mail1.netim.hosting (unknown [185.26.106.172]) by smtpm2.myservices.hosting (Postfix) with ESMTP id 0FC7B20379 for <59747@debbugs.gnu.org>; Thu, 8 Dec 2022 13:07:11 +0100 (CET) Received: from localhost (localhost [127.0.0.1]) by mail1.netim.hosting (Postfix) with ESMTP id C2B4480097; Thu, 8 Dec 2022 13:07:11 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at mail1.netim.hosting Received: from mail1.netim.hosting ([127.0.0.1]) by localhost (mail1-1.netim.hosting [127.0.0.1]) (amavisd-new, port 10026) with ESMTP id 0nTXfj3Jjn_R; Thu, 8 Dec 2022 13:07:11 +0100 (CET) Received: from guix-nuc.home.arpa (bl12-93-156.dsl.telepac.pt [85.245.93.156]) (Authenticated sender: lumen@makinata.eu) by mail1.netim.hosting (Postfix) with ESMTPSA id 0188D80096; Thu, 8 Dec 2022 13:07:10 +0100 (CET) From: mirai@makinata.eu To: 59747@debbugs.gnu.org Subject: [PATCH v2] services: configuration: rework alist? procedure Date: Thu, 8 Dec 2022 12:07:06 +0000 Message-Id: X-Mailer: git-send-email 2.38.1 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 59747 Cc: Bruno Victal 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: -1.0 (-) From: Bruno Victal * gnu/services/configuration.scm: rework alist? procedure --- gnu/services/configuration.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm index 2b3bd4c1f4..e0a5bd6728 100644 --- a/gnu/services/configuration.scm +++ b/gnu/services/configuration.scm @@ -436,7 +436,8 @@ (define (list-of pred?) (define list-of-strings? (list-of string?)) -(define alist? list?) +(define alist? + (list-of pair?)) (define serialize-file-like empty-serializer) base-commit: fc774ece918d765f871d2fd079e622188e23f2da -- 2.38.1 From unknown Sat Sep 20 01:51:45 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: Did not alter fixed versions and reopened. Date: Sat, 10 Dec 2022 13:42:02 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # Did not alter fixed versions and reopened. thanks # This fakemail brought to you by your local debbugs # administrator From debbugs-submit-bounces@debbugs.gnu.org Wed Jan 25 11:38:03 2023 Received: (at 59747) by debbugs.gnu.org; 25 Jan 2023 16:38:03 +0000 Received: from localhost ([127.0.0.1]:59800 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pKimh-0007Cm-6O for submit@debbugs.gnu.org; Wed, 25 Jan 2023 11:38:03 -0500 Received: from smtpmciv2.myservices.hosting ([185.26.107.238]:57782) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pKime-0007CL-6r for 59747@debbugs.gnu.org; Wed, 25 Jan 2023 11:38:01 -0500 Received: from mail1.netim.hosting (unknown [185.26.106.172]) by smtpmciv2.myservices.hosting (Postfix) with ESMTP id A1F4D20C97 for <59747@debbugs.gnu.org>; Wed, 25 Jan 2023 17:37:56 +0100 (CET) Received: from localhost (localhost [127.0.0.1]) by mail1.netim.hosting (Postfix) with ESMTP id 43A1E8009D; Wed, 25 Jan 2023 17:37:56 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at mail1.netim.hosting Received: from mail1.netim.hosting ([127.0.0.1]) by localhost (mail1-1.netim.hosting [127.0.0.1]) (amavisd-new, port 10026) with ESMTP id 1bFGa24eEnLz; Wed, 25 Jan 2023 17:37:56 +0100 (CET) Received: from guix-nuc.home.arpa (bl9-118-236.dsl.telepac.pt [85.242.118.236]) (Authenticated sender: lumen@makinata.eu) by mail1.netim.hosting (Postfix) with ESMTPSA id C25CC8009C; Wed, 25 Jan 2023 17:37:55 +0100 (CET) From: Bruno Victal To: 59747@debbugs.gnu.org Subject: [PATCH] services: configuration: simplify alist? procedure. Date: Wed, 25 Jan 2023 16:37:53 +0000 Message-Id: X-Mailer: git-send-email 2.38.1 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 59747 Cc: Bruno Victal 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: -1.0 (-) * gnu/services/configuration.scm (alist?): simplify procedure. --- gnu/services/configuration.scm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm index 6b0291dc00..d4d9c3b1a6 100644 --- a/gnu/services/configuration.scm +++ b/gnu/services/configuration.scm @@ -437,10 +437,7 @@ (define list-of-strings? (list-of string?)) (define alist? - (match-lambda - (() #t) - ((head . tail) (and (pair? head) (alist? tail))) - (_ #f))) + (list-of pair?)) (define serialize-file-like empty-serializer) base-commit: 0d713e0140f4c4a80de6cbfc58fae17cb69beb98 -- 2.38.1 From debbugs-submit-bounces@debbugs.gnu.org Wed Jan 25 11:38:58 2023 Received: (at 59747) by debbugs.gnu.org; 25 Jan 2023 16:38:58 +0000 Received: from localhost ([127.0.0.1]:59803 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pKina-0007E1-Ip for submit@debbugs.gnu.org; Wed, 25 Jan 2023 11:38:58 -0500 Received: from smtpm2.myservices.hosting ([185.26.105.233]:36104) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pKinZ-0007Ds-9H for 59747@debbugs.gnu.org; Wed, 25 Jan 2023 11:38:57 -0500 Received: from mail1.netim.hosting (unknown [185.26.106.172]) by smtpm2.myservices.hosting (Postfix) with ESMTP id 736B920DD2 for <59747@debbugs.gnu.org>; Wed, 25 Jan 2023 17:38:56 +0100 (CET) Received: from localhost (localhost [127.0.0.1]) by mail1.netim.hosting (Postfix) with ESMTP id 155D18009D; Wed, 25 Jan 2023 17:38:56 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at mail1.netim.hosting Received: from mail1.netim.hosting ([127.0.0.1]) by localhost (mail1-1.netim.hosting [127.0.0.1]) (amavisd-new, port 10026) with ESMTP id LJR82rsY6b0O; Wed, 25 Jan 2023 17:38:55 +0100 (CET) Received: from guix-nuc.home.arpa (bl9-118-236.dsl.telepac.pt [85.242.118.236]) (Authenticated sender: lumen@makinata.eu) by mail1.netim.hosting (Postfix) with ESMTPSA id 9A3BA8009C; Wed, 25 Jan 2023 17:38:55 +0100 (CET) From: Bruno Victal To: 59747@debbugs.gnu.org Subject: [PATCH v3] services: configuration: simplify alist? procedure. Date: Wed, 25 Jan 2023 16:38:51 +0000 Message-Id: X-Mailer: git-send-email 2.38.1 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 59747 Cc: Bruno Victal 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: -1.0 (-) * gnu/services/configuration.scm (alist?): simplify procedure. --- Last patch was sent without prefix. gnu/services/configuration.scm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm index 6b0291dc00..d4d9c3b1a6 100644 --- a/gnu/services/configuration.scm +++ b/gnu/services/configuration.scm @@ -437,10 +437,7 @@ (define list-of-strings? (list-of string?)) (define alist? - (match-lambda - (() #t) - ((head . tail) (and (pair? head) (alist? tail))) - (_ #f))) + (list-of pair?)) (define serialize-file-like empty-serializer) base-commit: 0d713e0140f4c4a80de6cbfc58fae17cb69beb98 -- 2.38.1 From debbugs-submit-bounces@debbugs.gnu.org Fri Feb 17 21:39:30 2023 Received: (at 59747) by debbugs.gnu.org; 18 Feb 2023 02:39:30 +0000 Received: from localhost ([127.0.0.1]:42050 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pTD8M-0002g6-4q for submit@debbugs.gnu.org; Fri, 17 Feb 2023 21:39:30 -0500 Received: from smtpm6.myservices.hosting ([185.26.105.207]:34096) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pTD8K-0002fy-FZ for 59747@debbugs.gnu.org; Fri, 17 Feb 2023 21:39:28 -0500 Received: from mail1.netim.hosting (unknown [185.26.106.173]) by smtpm6.myservices.hosting (Postfix) with ESMTP id AF6BD20D26 for <59747@debbugs.gnu.org>; Sat, 18 Feb 2023 03:39:26 +0100 (CET) Received: from localhost (localhost [127.0.0.1]) by mail1.netim.hosting (Postfix) with ESMTP id 1E0FB80097 for <59747@debbugs.gnu.org>; Sat, 18 Feb 2023 03:31:50 +0100 (CET) X-Virus-Scanned: Debian amavisd-new at mail1.netim.hosting Received: from mail1.netim.hosting ([127.0.0.1]) by localhost (mail1-2.netim.hosting [127.0.0.1]) (amavisd-new, port 10026) with ESMTP id otHXuPfSzPGe for <59747@debbugs.gnu.org>; Sat, 18 Feb 2023 03:31:49 +0100 (CET) Received: from [192.168.1.239] (unknown [10.192.1.83]) (Authenticated sender: lumen@makinata.eu) by mail1.netim.hosting (Postfix) with ESMTPSA id D27EC80079 for <59747@debbugs.gnu.org>; Sat, 18 Feb 2023 03:31:49 +0100 (CET) Message-ID: <4ea0a4de-11ac-08c6-d013-0ef31f7156de@makinata.eu> Date: Sat, 18 Feb 2023 02:31:49 +0000 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:102.0) Gecko/20100101 Thunderbird/102.7.2 Subject: Re: [PATCH v3] services: configuration: simplify alist? procedure. Content-Language: en-US To: 59747@debbugs.gnu.org References: From: Bruno Victal In-Reply-To: Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 7bit X-Spam-Score: -1.1 (-) X-Debbugs-Envelope-To: 59747 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: -2.1 (--) bump From debbugs-submit-bounces@debbugs.gnu.org Tue Mar 21 09:52:12 2023 Received: (at 59747-done) by debbugs.gnu.org; 21 Mar 2023 13:52:12 +0000 Received: from localhost ([127.0.0.1]:57985 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pecPM-0001Xx-7F for submit@debbugs.gnu.org; Tue, 21 Mar 2023 09:52:12 -0400 Received: from mail-qt1-f172.google.com ([209.85.160.172]:38459) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1pecPJ-0001Xk-Rd for 59747-done@debbugs.gnu.org; Tue, 21 Mar 2023 09:52:10 -0400 Received: by mail-qt1-f172.google.com with SMTP id c18so17870426qte.5 for <59747-done@debbugs.gnu.org>; Tue, 21 Mar 2023 06:52:09 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; t=1679406724; h=mime-version:user-agent:message-id:in-reply-to:date:references :subject:cc:to:from:from:to:cc:subject:date:message-id:reply-to; bh=SJO2QElF8eKEOT63py69G9WSg9QHWvehaMfqqFOe1F8=; b=e9cWV7Ckw4rKVYziD5XMkUh/3D9JjGPujdhyZd7xbxsoOewOEq82jLmj7fEHl69IAA QS62Rl0NSy47g/O9aPqAEU9e2EbtJCWhZ3xUcD73I0jvBASSBiP3NSo7f9AcBVS5lMH7 m0jGf+kujI0JEsk8AcgLOCMsFQBYKse9Cnt1ykS69Zr5rlQrlg5J9qHyMpNiR7/wBkcl Z8fMQg4hXWBcvLe4YbUH5uchc0l2qjbrnAIJ9ZdLNQKluJoFJ6Ih9wGkIiFX493jDTXE beTT56w1MGBGPbL0SlV+l09tuPv2Guf5n5fIhX/FR/hRZiuO8DTr3ISSwCEIi14vQGFc CQlw== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; t=1679406724; h=mime-version:user-agent:message-id:in-reply-to:date:references :subject:cc:to:from:x-gm-message-state:from:to:cc:subject:date :message-id:reply-to; bh=SJO2QElF8eKEOT63py69G9WSg9QHWvehaMfqqFOe1F8=; b=x3VwKib6vwN3rVGEGfLz/3jFCiuuuiFBRixZc5XpoCOxbdOMjsW6dQhOGph1rTvnRi VbGIjdR84oFgOWZRYRHC067b3jKPENvu8FzwY6D3uioJMWCBJOQBwQRehc7sKmmL/izs xqEubRIG3o26YrWX/Y/McxsQwjo54S02yfYpMHdNuBauqRXJHJPR4Pd/fxj7FwZJDsTS 4dVyJpAN/irbrHGcCajdyHXbjhCa1t4F1hklSwCRUl6222mzdPx4mYoTbDVD0p3piLXu WsvDydFfCvfJoG9oxlFpNlp7Ya2FDRGhLqSp7CrGdfBf8pdASN4RRiDb0/CJouAnKWxb DbYw== X-Gm-Message-State: AO0yUKWWsZBDuuwif3o7/vfXK1RVulpHBGH7R9ZRU+a8ykCGFH9zCoFV LmBUiUN4j6+Dt1PqN4t1jGZZCKzuNjwz6Q== X-Google-Smtp-Source: AK7set+GoxoszFiMeMoBJBHJQohxhzXr4RvNYzOVOIDZ/alEhYc+WdczfvuKsyygqpJi5lWc0/+9dQ== X-Received: by 2002:ac8:5c0f:0:b0:3e3:7ed6:3db with SMTP id i15-20020ac85c0f000000b003e37ed603dbmr4081284qti.29.1679406723740; Tue, 21 Mar 2023 06:52:03 -0700 (PDT) Received: from hurd (dsl-10-130-195.b2b2c.ca. [72.10.130.195]) by smtp.gmail.com with ESMTPSA id j13-20020ac8550d000000b003b82489d8acsm8416420qtq.21.2023.03.21.06.52.03 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Tue, 21 Mar 2023 06:52:03 -0700 (PDT) From: Maxim Cournoyer To: Bruno Victal Subject: Re: bug#59747: [PATCH] services: configuration: rework alist? procedure References: Date: Tue, 21 Mar 2023 09:52:02 -0400 In-Reply-To: (Bruno Victal's message of "Wed, 25 Jan 2023 16:38:51 +0000") Message-ID: <87pm92qkjh.fsf_-_@gmail.com> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/28.2 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain X-Spam-Score: 0.0 (/) X-Debbugs-Envelope-To: 59747-done Cc: 59747-done@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: -1.0 (-) Hi, Bruno Victal writes: > * gnu/services/configuration.scm (alist?): simplify procedure. > --- > > Last patch was sent without prefix. > > gnu/services/configuration.scm | 5 +---- > 1 file changed, 1 insertion(+), 4 deletions(-) > > diff --git a/gnu/services/configuration.scm b/gnu/services/configuration.scm > index 6b0291dc00..d4d9c3b1a6 100644 > --- a/gnu/services/configuration.scm > +++ b/gnu/services/configuration.scm > @@ -437,10 +437,7 @@ (define list-of-strings? > (list-of string?)) > > (define alist? > - (match-lambda > - (() #t) > - ((head . tail) (and (pair? head) (alist? tail))) > - (_ #f))) > + (list-of pair?)) Applied, thanks! -- Thanks, Maxim From unknown Sat Sep 20 01:51:45 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Wed, 19 Apr 2023 11:24:13 +0000 User-Agent: Fakemail v42.6.9 # This is a fake control message. # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator