amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add guile-srfi-165.

Browse source 
* gnu/packages/guile-xyz.scm (guile-srfi-165): New variable.

Co-authored-by: Liliana Marie Prikler <liliana.prikler@gmail.com>

Change-Id: I81b79de3f69c676b40a98a42fd898d0f58ab9486
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Zhu Zihao 2025-07-12 14:01:21 +08:00 • committed by Ludovic Courtès
parent bd9b7d4467
commit b757e69b17
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 63 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

64
gnu/packages/guile-xyz.scm
View file

@ -31,7 +31,7 @@
;;; Copyright © 2020, 2021 Masaya Tojo <masaya@tojo.tokyo>
;;; Copyright © 2020 Jesse Gibbons <jgibbons2357@gmail.com>
;;; Copyright © 2020 Mike Rosset <mike.rosset@gmail.com>
;;; Copyright © 2020 Liliana Marie Prikler <liliana.prikler@gmail.com>
;;; Copyright © 2020, 2025 Liliana Marie Prikler <liliana.prikler@gmail.com>
;;; Copyright © 2020, 2021, 2022 pukkamustard <pukkamustard@posteo.net>
;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
@ -4924,6 +4924,68 @@ return accumulators. It is implemented by wrapping the sample
implementation in a thin Guile compatibility layer.")
(license license:gpl3+))))
(define-public guile-srfi-165
(let ((commit "1b441c0edc258e39cb943096bd47dd45071e2f70")
(revision "0"))
(package
(name "guile-srfi-165")
(version (git-version "0" revision commit))
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/scheme-requests-for-implementation/srfi-165")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1ac1nmf413sayy0xq4c2l4kmbjkh8ksg3s4fwgk44zcd8phy3kxw"))))
(build-system guile-build-system)
(arguments
(list
#:scheme-file-regexp "(srfi-165|impl)\\.scm$"
#:documentation-file-regexp "srfi-165\\.html$"
#:phases
#~(modify-phases %standard-phases
(add-before 'build 'rename-files
(lambda _
(mkdir-p "srfi/srfi-165")
(rename-file "srfi/165.scm" "srfi/srfi-165/impl.scm")
(substitute* "srfi/165.sld"
(("\\(include \"165.scm\"\\)")
"(include \"srfi-165/impl.scm\")"))
(rename-file "srfi/165.sld" "srfi/srfi-165.scm")))
(add-after 'build 'check-installed
(lambda _
(substitute* "srfi/165/test.sld"
(("srfi 165 test") "srfi #{165}# test"))
(define-values (scm go) (target-guile-scm+go #$output))
(invoke "guile"
"-L" scm "-C" go
"-l" "./srfi/165/test.sld"
"-c"
(format #f "~S"
'(begin
(use-modules (srfi #{165}# test))
(run-tests)))))))))
(native-inputs (list guile-3.0
guile-srfi-125
guile-srfi-128
guile-srfi-146))
(propagated-inputs
(list guile-srfi-125 guile-srfi-128 guile-srfi-146))
(home-page "https://srfi.schemers.org/srfi-165/")
(synopsis "Environment/Reader Monad")
(description
"This library provides the sample implementation of SRFI-165.
This SRFI defines an environment monad, which models computations that depend on
values from a shared environment. These computations can read values from the
environment, pass values to subsequent computations, execute sub-computations in
an extended environment, and modify the environment for future computations.")
(license license:expat))))
(define-public guile-srfi-180
(let ((commit "9188bf9724c6d320ef804579d222e855b007b193")
(revision "0"))