cristiancmoises
/
radix
mirror of https://codeberg.org/anemofilia/radix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

packages: Remove upstreamed packages

pull/1/head
Luis Guilherme Coelho 2023-12-25 23:14:51 -03:00
parent a6892e1683
commit 975459b542
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 0 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
modules/radix/packages/guile-xyz.scm
View File

@ -73,68 +73,3 @@
SRFI 197 defines a large set of clojure-like threading macros for SRFI 197 defines a large set of clojure-like threading macros for
representing nested data structures and code in a more readable way.") representing nested data structures and code in a more readable way.")
(license license:expat)))) (license license:expat))))
(define-public guile-srfi-171
(let ((commit "40eb284ae54e510013054453890052df603a3a7f")
(revision "0"))
(package
(name "guile-srfi-171")
(version (git-version "0.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url (string-append
"https://github.com"
"/scheme-requests-for-implementation/srfi-171"))
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1w2x5mwvzb2xrp6j2drigay885ni5dag8y2iiak4s96v863wyh5l"))
(snippet #~(begin
(use-modules (ice-9 rdelim)
(ice-9 pretty-print)
(guix build utils))
(with-output-to-file "tmp.scm"
(lambda ()
(call-with-input-file "srfi/srfi-171.scm"
(lambda (input-port)
(let loop
((i 0))
(let ((line (read-line input-port)))
(unless (equal? line
"(include \"171-impl.scm\")")
(unless (< i 13)
(write-line line))
(loop (1+ i)))))))
(call-with-input-file "srfi/171-impl.scm"
(lambda (input-port)
(let loop
((i 0))
(let ((line (read-line input-port)))
(unless (eof-object? line)
(unless (< i 13)
(write-line line))
(loop (1+ i)))))))))
(delete-file-recursively "srfi")
(mkdir "srfi")
(rename-file "tmp.scm" "srfi/srfi-171.scm")
(for-each delete-file
'("compose.scm" "srfi-171.html"
"transducers.md"
"README.org"
"index.html"
"tests-guile.scm"
"tests-r7rs.scm"
"tests.scm"))))))
(build-system guile-build-system)
(inputs (list guile-3.0))
(home-page
"https://github.com/scheme-requests-for-implementation/srfi-171")
(synopsis "SRFI 171 transducers implementation for Guile")
(description
"This package provides an implementation of SRFI 171 for Guile.
SRFI 171 defines transducers that generalize common list operations like
map, filter, take and so on for other types. The traditional Scheme
approach of having collection-specific procedures is not changed. ")
(license license:expat))))