packages: Remove upstreamed packages

modules/radix/packages/guile-xyz.scm

@@ -73,68 +73,3 @@
 SRFI 197 defines a large set of clojure-like threading macros for
 representing nested data structures and code in a more readable way.")
       (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))))