From patchwork Sun Jan 7 15:09:44 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: 58447 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 871CB27BBE2; Sun, 7 Jan 2024 15:11:08 +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=-1.9 required=5.0 tests=BAYES_00,DKIM_ADSP_ALL, DKIM_INVALID,DKIM_SIGNED,MAILING_LIST_MULTI,SPF_HELO_PASS, URIBL_BLOCKED autolearn=no 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 8AD9227BBE9 for ; Sun, 7 Jan 2024 15:11:07 +0000 (GMT) Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1rMUnj-0004O8-60; Sun, 07 Jan 2024 10:10:59 -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 1rMUng-0004Nm-Pz for guix-patches@gnu.org; Sun, 07 Jan 2024 10:10:56 -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 1rMUng-0000bd-Hj for guix-patches@gnu.org; Sun, 07 Jan 2024 10:10:56 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1rMUnm-0005HP-3I for guix-patches@gnu.org; Sun, 07 Jan 2024 10:11:02 -0500 X-Loop: help-debbugs@gnu.org Subject: [bug#68305] [PATCH] gnu: Add guile-srfi-197. Resent-From: Tomas Volf <~@wolfsden.cz> Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sun, 07 Jan 2024 15:11:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 68305 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 68305@debbugs.gnu.org Cc: Tomas Volf <~@wolfsden.cz> X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.170464021220210 (code B ref -1); Sun, 07 Jan 2024 15:11:01 +0000 Received: (at submit) by debbugs.gnu.org; 7 Jan 2024 15:10:12 +0000 Received: from localhost ([127.0.0.1]:33568 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1rMUmy-0005Fu-Fg for submit@debbugs.gnu.org; Sun, 07 Jan 2024 10:10:12 -0500 Received: from lists.gnu.org ([2001:470:142::17]:54464) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from <~@wolfsden.cz>) id 1rMUmw-0005Fb-7x for submit@debbugs.gnu.org; Sun, 07 Jan 2024 10:10:11 -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 <~@wolfsden.cz>) id 1rMUmk-0004KR-Ea for guix-patches@gnu.org; Sun, 07 Jan 2024 10:09:58 -0500 Received: from wolfsden.cz ([37.205.8.62]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from <~@wolfsden.cz>) id 1rMUmi-00008L-5q for guix-patches@gnu.org; Sun, 07 Jan 2024 10:09:58 -0500 Received: by wolfsden.cz (Postfix, from userid 104) id 0D326245E43; Sun, 7 Jan 2024 15:09:53 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=wolfsden.cz; s=mail; t=1704640193; bh=LIuVzEM3U1kIlgpY4jYkXcgUx+AcGngGhwp1fiAVy5o=; h=From:To:Cc:Subject:Date; b=JpQ7+SqJ+tcTbBHY8ilh7g0r3N+hJISJ2cGvmTRxcFgctDYQNOFx1Y15Wmxt0x2Bq F8Zpt1W8bZxNqv4gNg6snUdA0LDQaG/g7K5LxrSYKMNIVbMNM3ir1oQk2dEFWX/Ivs 3rHi9VIxhhpA4j1mT8vpCi57hsOXmbJXiwXFL/Y17n5r0T7S/M8RyHM8caBnFXLcp/ 1Q9bfBfqA0YXPeaxASUhtDje7iOwa7n9isCzKhvDNMGt7vy08X/tQPsEfGHC4HmpEQ E0tpF9acByZ9WcMXmuF5HQ3k+xndYFrftH+Fm0lhFYmGSD9ntWvByJ4Pr1If3irGtW SlfnlU60GFdQ0yuwlQ4DG294W9A3Yd1NqUDEtstgE+qUBufXC28rsiBPITy92B2O+K ZfqItKS5wGQm1b0bL98l1xY5nakgkpyPuc6dm+bKTYClTpKrZSr+sC8ucBqO81rZcd 0Fz45DXbDmeuat3zTbJcCNQ39zsfCnmK4Ty4wUjjISQTNzRkVw4LSxuk52zwNK3Zdm /yZAX7n/wRhpfH1dDtaGQOCgB0O8ZrxwfNJ5NPN9J/74vetFLC6a0g2HtS0ifsz4Bs VG2QBRwoQ0NcgYrpFdlP9nJh/wBSIiuqyhwsI3AYhMKt4nmSDAmsCZ4cYi2Pn9I7gl 6XaVj2+xAg2Wbn0d+TQYFWRQ= Received: from localhost (unknown [146.70.134.143]) by wolfsden.cz (Postfix) with ESMTPSA id 26CF9245B97; Sun, 7 Jan 2024 15:09:52 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=wolfsden.cz; s=mail; t=1704640192; bh=LIuVzEM3U1kIlgpY4jYkXcgUx+AcGngGhwp1fiAVy5o=; h=From:To:Cc:Subject:Date; b=vFPeqpJGz+xOpyYHbPMO5XD1JfR+BZtWfcfVOflObyG+Z6Cn3tQVVsfNKhN53ir5c Z9vMyxCPRm1q7/7Gdg+2vfHJrnVLttUVDqPI8k4s+ARcFrUEdtnhP2ffx0wjTZqG7Q cHLRGr85xhSgQ/+pTG/nH4pUZkqW9PzEbwBNReWRuCu/PR4QCGCvFXdJlwGLqnfIq+ im90IQ+Wy90H7SyJJg6hYhGXgJSWAsi/frN0rpcjDYqoa1SQj42+lL7ReKqNudOsiC 3WsuvkHsErAWaYcIeIS4v40kLovAUETMcgLUJSF0EiC+s9i+0RuLmQGC37K4w0aO3v DWgxll1gmz5okNFXBqSUKIOSyWRyq7g5tckXcUH+JKnm7B47QawF8aIeCmXmstqJdj IspFcTlcL83r2YVx6qlYTjC85EfZwY0lR148TAjGsBaKCTemp+6pqOXn7dQYUUnZIi Ik8YUPdVmjV5tpwrJtiobOWp8Nw/PcjgoObzEk+Y6Fr3yJijOGJRmzQf+I7s17IePh jj7CuSCmfJ8OdY2hk4hYVTvy4MC0I5bAbdXq7/4wySNqjfjk00Lll6hxAjkVRG8oiq XO2lCIuRafsLisCluNHBurBuPn0suhUSj7DuoO2dHeO+6T5c7v3yuKu8qcQaOuta4w mawDgtHf8644qw4rOwEd9MUA= From: Tomas Volf <~@wolfsden.cz> Date: Sun, 7 Jan 2024 16:09:44 +0100 Message-ID: <021a14380a3d701f4dddbac72b83bf34bdea4558.1704640177.git.~@wolfsden.cz> X-Mailer: git-send-email 2.41.0 MIME-Version: 1.0 Received-SPF: pass client-ip=37.205.8.62; envelope-from=~@wolfsden.cz; helo=wolfsden.cz X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action 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 --- gnu/packages/guile-xyz.scm | 56 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) base-commit: b212e6934643e085f168a5364cb593f61aa616ba diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 75e3754046..ff3104a407 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -3840,6 +3840,62 @@ (define-public guile-srfi-189 or errors (Left).") (license license:expat)))) +(define-public guile-srfi-197 + (let ((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 + (λ _ + (use-modules (ice-9 textual-ports)) + (mkdir-p "src/srfi") + (call-with-output-file "src/srfi/srfi-197.scm" + (λ (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" + (λ (in-port) + (display (get-string-all in-port) port))))))) + (add-after 'install 'check-installed + (λ _ + (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 (a b (c d (e f g))) as a sequence of operations: +(chain g (e f _) (c d _) (a b _)).") + (license license:expat)))) + (define-public guile-srfi-232 (package (name "guile-srfi-232")