From patchwork Fri Jan 12 16:46:01 2024 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Tomas Volf <~@wolfsden.cz> X-Patchwork-Id: 58827 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 6E08127BBE2; Fri, 12 Jan 2024 16:48:25 +0000 (GMT) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.9 required=5.0 tests=BAYES_00,DKIM_ADSP_ALL, DKIM_INVALID,DKIM_SIGNED,MAILING_LIST_MULTI,RCVD_IN_MSPIKE_H5, RCVD_IN_MSPIKE_WL,SPF_HELO_PASS,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 6753527BBEA for ; Fri, 12 Jan 2024 16:48:22 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1rOKhY-0002cj-2v; Fri, 12 Jan 2024 11:48:12 -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 1rOKhR-0002Jc-Jc for guix-patches@gnu.org; Fri, 12 Jan 2024 11:48:08 -0500 Received: from debbugs.gnu.org ([2001:470:142:5::43]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1rOKhQ-0002QA-DN for guix-patches@gnu.org; Fri, 12 Jan 2024 11:48:05 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1rOKhO-0003zQ-Ep for guix-patches@gnu.org; Fri, 12 Jan 2024 11:48:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#68305] [PATCH v2] gnu: Add guile-srfi-197. References: <021a14380a3d701f4dddbac72b83bf34bdea4558.1704640177.git.~@wolfsden.cz> In-Reply-To: <021a14380a3d701f4dddbac72b83bf34bdea4558.1704640177.git.~@wolfsden.cz> Resent-From: Tomas Volf <~@wolfsden.cz> Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Fri, 12 Jan 2024 16:48:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 68305 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 68305@debbugs.gnu.org Cc: Tomas Volf <~@wolfsden.cz> Received: via spool by 68305-submit@debbugs.gnu.org id=B68305.170507802515053 (code B ref 68305); Fri, 12 Jan 2024 16:48:02 +0000 Received: (at 68305) by debbugs.gnu.org; 12 Jan 2024 16:47:05 +0000 Received: from localhost ([127.0.0.1]:37489 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rOKgS-0003ui-G4 for submit@debbugs.gnu.org; Fri, 12 Jan 2024 11:47:04 -0500 Received: from wolfsden.cz ([37.205.8.62]:44448) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <~@wolfsden.cz>) id 1rOKgO-0003uC-Vo for 68305@debbugs.gnu.org; Fri, 12 Jan 2024 11:47:03 -0500 Received: by wolfsden.cz (Postfix, from userid 104) id 10BD824F37E; Fri, 12 Jan 2024 16:47:01 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=wolfsden.cz; s=mail; t=1705078021; bh=Sp/rKkf9fBT1er7AZ+unshBZNLpvUmYoo5zQxls/NNM=; h=From:To:Cc:Subject:Date; b=IiWLG1cWOxgZN6uNj7Cs32bAIyjc/KBdXZ0X4bYbAJO83DMwWNbWb+ukN7fsoJ9N/ jz0OwZRccBlvjxPozprLk80XXXpp6BlvmfqrkDFm8dHToXK4i147D6p+eaugppUofl pVHchZyds1rpq/UnKGt4SM0njXzeA1eyAakzkS7x5+SLm0mLzm8oHcqc3tsT4wUHl8 AqfSmf60j63+rlzt4b1ewas9Mci7I8v6sQhk0bmG12vKhVk4dB8e+MCfsyESjtbGdA 6a2OnZ+StyH5n7k+8JCCt6rNvQ5HP5fegQSH6J1zjrll8XEXmU8L+JXuN2NX+CRaeF z8ZUJz/HS1AnNkbG30ANUqkxU32RKl5+hJUieh3IblW2PjbSO7LUDqUhlqbOcVtxdE ij46JnGZu2uApnAZ36dZqjOYLQC8L8MvzsyVKVygWqcDFPUNDfzKUo53o2kRIKVWhO bNHQSA3DU/h1JzAYvPDqG7uF9xQbr0jmPtvaqXK8z+k61srQPhWZSjlHt/afReucgd 6PyBG8teh/NAwP1KdyumM8xka0L9UMIpK7AKDHX/z7Y8xv8TgLNEng0aa7vyj8ctZv guWYSzvsOpZfe6U0+LJWJ6BQzACIYARDzdlekq3umseGooIGD6GGK5gNn0/9W6kp4V r4GuUtUgI1XersPEzNfodYII= Received: from localhost (unknown [193.32.127.158]) by wolfsden.cz (Postfix) with ESMTPSA id 9EF7024E7E2; Fri, 12 Jan 2024 16:47:00 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=wolfsden.cz; s=mail; t=1705078020; bh=Sp/rKkf9fBT1er7AZ+unshBZNLpvUmYoo5zQxls/NNM=; h=From:To:Cc:Subject:Date; b=BYexXBKE3YvybTZLTN7ZsKtRyQH3xM9/1nTGXDKX9eyUymzji9lV+W9IUIWtJDbI7 kfvsu8UV2AyNJqHCPgWN4qxwuTkGh9Ivq3geEOY/CruNhJ1LEPcBPS8ZzWYdPhMfDD 56FqbQNPfl5NrTWsR8CEbeJNP6xaqMYnNZJuAxECgbvKaTfYTl42+QX0UmB27z7m4q W6k/w4dmC+lNyV/DknBE50fpkUqMbI6cZu3ib3f1fUPHb5+dDUp1AYp2QQbXewEErO d3ue9zFSmNJNwouLWQ816prTjiHNzFRaIG7ERwaZZz1EhqIOR9JSh13lTzbKZmDiCX HeNKtZondyJRp9xp6QB4ZDnh4poeUwO90sjY8lkWqIi6F3HKmFy6GYYJJnw2EFLRkQ W8OfU5J7B2DAkLPoxsAm9K2WxWbPSLFKXma7XOl0TGwb5OzrQIoP7dlxdjasiFryHA UN6o6/GZd4A7X4rZsU5OWta1Hi8/4L1CqYbVEqj9l5H8vDwDuBpGukYZYAN3M28ORG G5jifHfVDt/q5eYOwWf/CGWEQUI7OMiMuHNtuFot2FCm09XIrINWV9fy5uegXcg4sY l2uaN96rmRJsI+n5pDblJNiS7XGyLAh0Dk7miT8rcH5cb/8DlcSA5fJsIu1gO7IQy7 QNGFZbna8OKpXCUUIYoehLkc= From: Tomas Volf <~@wolfsden.cz> Date: Fri, 12 Jan 2024 17:46:01 +0100 Message-ID: <7e2b8cc933f8ba17e5ccb97ddc4c3f6d8e386e9b.1705077961.git.~@wolfsden.cz> X-Mailer: git-send-email 2.41.0 MIME-Version: 1.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org X-getmail-retrieved-from-mailbox: Patches * gnu/packages/guile-xyz.scm (guile-srfi-197): New variable. Change-Id: Ifcdc264e6a03e88e7614d79792fbe6ca9c8e519c --- * Use lambda instead of λ. * Add comment regarding the commit used. * Use @code{} in the description. gnu/packages/guile-xyz.scm | 59 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) base-commit: b212e6934643e085f168a5364cb593f61aa616ba diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 75e3754046..841127e8c9 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -3840,6 +3840,65 @@ (define-public guile-srfi-189 or errors (Left).") (license license:expat)))) +(define-public guile-srfi-197 + (let ( + ;; There is minor fix to the documention after the final tag, so use + ;; the newest commit instead. + (commit "d31b8be86460bf837cccf2737a1b9b9c01788573") + (revision "0")) + (package + (name "guile-srfi-197") + (version (git-version "0" revision commit)) + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/scheme-requests-for-implementation/srfi-197") + (commit commit))) + (sha256 + (base32 + "1c1jjzqgavjwfzs352wssdbjga5ymv4g3lkl0zxhjw7pfrr5xx1m")) + (file-name (git-file-name name version)))) + (build-system guile-build-system) + (arguments + (list + #:source-directory "src" + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'create-module + (lambda _ + (use-modules (ice-9 textual-ports)) + (mkdir-p "src/srfi") + (call-with-output-file "src/srfi/srfi-197.scm" + (lambda (port) + (write '(define-module (srfi srfi-197) + #:use-module (scheme base) + #:export (chain + chain-and + chain-when + chain-lambda + nest + nest-reverse)) + port) + (call-with-input-file "srfi-197-syntax-case.scm" + (lambda (in-port) + (display (get-string-all in-port) port))))))) + (add-after 'install 'check-installed + (lambda _ + (define-values (scm go) (target-guile-scm+go #$output)) + (invoke "guile" "-L" scm "-C" go + "--use-srfi=197" "./test.scm")))))) + (native-inputs + (list guile-3.0)) + (home-page "https://srfi.schemers.org/srfi-197/") + (synopsis "Pipeline operators for Guile") + (description + "This library provides a reference implementation for SRFI-197. This +SRFI defines a family of chain and nest pipeline operators, which can rewrite +nested expressions like @code{(a b (c d (e f g)))} as a sequence of +operations: @code{(chain g (e f _) (c d _) (a b _))}.") + (license license:expat)))) + (define-public guile-srfi-232 (package (name "guile-srfi-232")