From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp0 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id OEaaHresUl8IMQAA0tVLHw (envelope-from ) for ; Fri, 04 Sep 2020 21:08:07 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp0 with LMTPS id qKS7GresUl9oEgAA1q6Kng (envelope-from ) for ; Fri, 04 Sep 2020 21:08:07 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 5A46E94050F for ; Fri, 4 Sep 2020 21:08:06 +0000 (UTC) Received: from localhost ([::1]:33506 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kEIHu-0000vh-BM for larch@yhetil.org; Fri, 04 Sep 2020 16:26:22 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:55388) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kEIHc-0000S1-RD for guix-patches@gnu.org; Fri, 04 Sep 2020 16:26:04 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:57417) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1kEIHc-0001lc-HZ for guix-patches@gnu.org; Fri, 04 Sep 2020 16:26:04 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1kEIHc-0006In-E7 for guix-patches@gnu.org; Fri, 04 Sep 2020 16:26:04 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#43183] [PATCH v2 5/5] gnu: Add guile-laesare. Resent-From: Martin Becze Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Fri, 04 Sep 2020 20:26:04 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 43183 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 43183@debbugs.gnu.org Cc: Martin Becze Received: via spool by 43183-submit@debbugs.gnu.org id=B43183.159925115224172 (code B ref 43183); Fri, 04 Sep 2020 20:26:04 +0000 Received: (at 43183) by debbugs.gnu.org; 4 Sep 2020 20:25:52 +0000 Received: from localhost ([127.0.0.1]:40725 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kEIHQ-0006Hj-FL for submit@debbugs.gnu.org; Fri, 04 Sep 2020 16:25:52 -0400 Received: from mx1.riseup.net ([198.252.153.129]:50916) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kEIHJ-0006HA-2H for 43183@debbugs.gnu.org; Fri, 04 Sep 2020 16:25:45 -0400 Received: from bell.riseup.net (bell-pn.riseup.net [10.0.1.178]) (using TLSv1 with cipher ECDHE-RSA-AES256-SHA (256/256 bits)) (Client CN "*.riseup.net", Issuer "Sectigo RSA Domain Validation Secure Server CA" (not verified)) by mx1.riseup.net (Postfix) with ESMTPS id 4Bjq1h4mkKzFgYs for <43183@debbugs.gnu.org>; Fri, 4 Sep 2020 13:25:44 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=riseup.net; s=squak; t=1599251144; bh=M7TNyG9tu3ICs84RVqF/dCsu02p6zpvFYjMU7GjiItM=; h=From:To:Cc:Subject:Date:In-Reply-To:References:From; b=LbBsCdsEFa7k8ZO0u00xOf5DLAgVnA0V/h4YGmblZWDohTAPT0vd7yRx0EYzPYc6m UOraSdxn1a5e6Z9hPeId2hNFnzEyIFayQa8msKdaBfTtve+U9QOZVF8EaR0a3GA5f6 UDKbxO8JjY0r3CmFca6LSLxyA3RzqFwr03dN6S5M= X-Riseup-User-ID: 02AC602C5256ECEDDAA16A1A866F94C52E7F75F58649FD43581F9A9B95C2C781 Received: from [127.0.0.1] (localhost [127.0.0.1]) by bell.riseup.net (Postfix) with ESMTPSA id 4Bjq1g6CSTzJn6Z; Fri, 4 Sep 2020 13:25:43 -0700 (PDT) From: Martin Becze Date: Fri, 4 Sep 2020 15:25:17 -0500 Message-Id: <20200904202517.6131-6-mjbecze@riseup.net> In-Reply-To: <20200904202517.6131-1-mjbecze@riseup.net> References: <20200903150243.27796-1-mjbecze@riseup.net> <20200904202517.6131-1-mjbecze@riseup.net> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Score: -0.7 (/) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-Spam-Score: -1.7 (-) X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: "Guix-patches" X-Scanner: scn0 Authentication-Results: aspmx1.migadu.com; dkim=fail (rsa verify failed) header.d=riseup.net header.s=squak header.b=LbBsCdsE; dmarc=fail reason="SPF not aligned (relaxed)" header.from=riseup.net (policy=none); spf=pass (aspmx1.migadu.com: domain of guix-patches-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=guix-patches-bounces@gnu.org X-Spam-Score: 5.09 X-TUID: Cp2olK5P2kle * gnu/packages/guile-xyz.scm (guile-laesare): New variable. --- gnu/packages/guile-xyz.scm | 45 +++++++++++++++++++++++++++++++++++++- 1 file changed, 44 insertions(+), 1 deletion(-) diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index a699377ff8..ed4b445701 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -3937,4 +3937,47 @@ working with binary code: assembly, disassembly, instruction tables, object formats and related areas.") (license license:expat))) - +(define-public guile-laesare + (package + (name "guile-laesare") + (version "1.0.0") + (source + (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/weinholt/laesare.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 "15q619gzw717r8r1ql23zfdaibpnp9qqs96032vdc3rj74msxc92")))) + (build-system guile-build-system) + (arguments + `(#:compile-flags '("--r6rs" "-Wunbound-variable" "-Warity-mismatch") + #:modules ((guix build guile-build-system) + (guix build utils) + (ice-9 ftw)) + #:phases (modify-phases %standard-phases + (add-before 'build 'move-sls-files + (lambda _ + ;; Move files under a laesare directory to reflect + ;; the module hierarchy. + (define (mv dst) + (define (target file) + (string-append dst "/" file)) + (define files (cddr (scandir "."))) + (mkdir dst) + (for-each (lambda (file) + (rename-file file (target file))) + files)) + (mv "laesare") + #t))))) + (native-inputs + `(("guile" ,guile-3.0))) + (home-page "https://github.com/weinholt/laesare") + (synopsis "R6RS Scheme library that provides a reader") + (description + "This is an R6RS Scheme library that provides a reader with some extra +features not found in the standard read procedure such as a compatible mode +with support for other RnRS standards and a tolerant mode that continues on +errors.") + (license license:expat))) -- 2.28.0