import: utils: 'recursive-import' returns a list rather than a stream.

* guix/import/utils.scm (recursive-import): Remove 'list->stream' call.
* guix/scripts/import/cran.scm (guix-import-cran): Remove 'stream->list'
call.
* guix/scripts/import/crate.scm (guix-import-crate): Likewise.
* guix/scripts/import/elpa.scm (guix-import-elpa): Likewise.
* guix/scripts/import/gem.scm (guix-import-gem): Likewise.
* guix/scripts/import/hackage.scm (guix-import-hackage): Likewise.
* guix/scripts/import/opam.scm (guix-import-opam): Likewise.
* guix/scripts/import/pypi.scm (guix-import-pypi): Likewise.
* guix/scripts/import/stackage.scm (guix-import-stackage): Likewise.
* tests/gem.scm ("gem-recursive-import"): Likewise.
* tests/import-utils.scm ("recursive-import"): Likewise.

Co-authored-by: Brian Leung <bkleung89@gmail.com>

guix/import/utils.scm

@@ -44,7 +44,6 @@ (define-module (guix import utils)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-26)
-  #:use-module (srfi srfi-41)
   #:export (factorize-uri
 
             flatten
@@ -422,11 +421,10 @@ (define (lookup-node name)
     (receive (package dependencies) (repo->guix-package name repo)
       (make-node name package dependencies)))
 
-  (list->stream                                   ;TODO: remove streams
-   (map node-package
-        (topological-sort (list (lookup-node package-name))
-                          (lambda (node)
-                            (map lookup-node
-                                 (remove exists?
-                                         (node-dependencies node))))
-                          node-name))))
+  (map node-package
+       (topological-sort (list (lookup-node package-name))
+                         (lambda (node)
+                           (map lookup-node
+                                (remove exists?
+                                        (node-dependencies node))))
+                         node-name)))

guix/scripts/import/cran.scm

@@ -27,7 +27,6 @@ (define-module (guix scripts import cran)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-37)
-  #:use-module (srfi srfi-41)
   #:use-module (ice-9 match)
   #:use-module (ice-9 format)
   #:export (guix-import-cran))
@@ -98,9 +97,8 @@ (define (parse-options)
        (if (assoc-ref opts 'recursive)
            ;; Recursive import
            (map package->definition
-                (stream->list
-                 (cran-recursive-import package-name
-                                        (or (assoc-ref opts 'repo) 'cran))))
+                (cran-recursive-import package-name
+                                       (or (assoc-ref opts 'repo) 'cran)))
            ;; Single import
            (let ((sexp (cran->guix-package package-name
                                            (or (assoc-ref opts 'repo) 'cran))))

guix/scripts/import/crate.scm

@@ -28,7 +28,6 @@ (define-module (guix scripts import crate)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-37)
-  #:use-module (srfi srfi-41)
   #:use-module (ice-9 match)
   #:use-module (ice-9 format)
   #:export (guix-import-crate))
@@ -101,8 +100,7 @@ (define-values (name version)
                    `(define-public ,(string->symbol name)
                       ,pkg))
                   (_ #f))
-                (stream->list
-                 (crate-recursive-import name)))
+                (crate-recursive-import name))
            (let ((sexp (crate->guix-package name version)))
              (unless sexp
                (leave (G_ "failed to download meta-data for package '~a'~%")

guix/scripts/import/elpa.scm

@@ -27,7 +27,6 @@ (define-module (guix scripts import elpa)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-37)
-  #:use-module (srfi srfi-41)
   #:use-module (ice-9 match)
   #:use-module (ice-9 format)
   #:export (guix-import-elpa))
@@ -101,9 +100,8 @@ (define (parse-options)
                    `(define-public ,(string->symbol name)
                       ,pkg))
                   (_ #f))
-                (stream->list
-                 (elpa-recursive-import package-name
-                                        (or (assoc-ref opts 'repo) 'gnu))))
+                (elpa-recursive-import package-name
+                                       (or (assoc-ref opts 'repo) 'gnu)))
            (let ((sexp (elpa->guix-package package-name (assoc-ref opts 'repo))))
              (unless sexp
                (leave (G_ "failed to download package '~a'~%") package-name))

guix/scripts/import/gem.scm

@@ -26,7 +26,6 @@ (define-module (guix scripts import gem)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-37)
-  #:use-module (srfi srfi-41)
   #:use-module (ice-9 match)
   #:use-module (ice-9 format)
   #:export (guix-import-gem))
@@ -95,8 +94,7 @@ (define (parse-options)
                    `(define-public ,(string->symbol name)
                       ,pkg))
                   (_ #f))
-                (stream->list
-                 (gem-recursive-import package-name 'rubygems)))
+                (gem-recursive-import package-name 'rubygems))
            (let ((sexp (gem->guix-package package-name)))
              (unless sexp
                (leave (G_ "failed to download meta-data for package '~a'~%")

guix/scripts/import/hackage.scm

@@ -27,7 +27,6 @@ (define-module (guix scripts import hackage)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-37)
-  #:use-module (srfi srfi-41)
   #:use-module (ice-9 match)
   #:use-module (ice-9 format)
   #:export (guix-import-hackage))
@@ -130,8 +129,7 @@ (define (run-importer package-name opts error-fn)
                              `(define-public ,(string->symbol name)
                                 ,pkg))
                             (_ #f))
-                          (stream->list
-                           (apply hackage-recursive-import arguments)))
+                          (apply hackage-recursive-import arguments))
                      ;; Single import
                      (apply hackage->guix-package arguments))))
       (unless sexp (error-fn))

guix/scripts/import/opam.scm

@@ -25,7 +25,6 @@ (define-module (guix scripts import opam)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-37)
-  #:use-module (srfi srfi-41)
   #:use-module (ice-9 match)
   #:use-module (ice-9 format)
   #:export (guix-import-opam))
@@ -94,8 +93,7 @@ (define (parse-options)
                    `(define-public ,(string->symbol name)
                       ,pkg))
                   (_ #f))
-                (stream->list
-                 (opam-recursive-import package-name)))
+                (opam-recursive-import package-name))
            ;; Single import
            (let ((sexp (opam->guix-package package-name)))
              (unless sexp

guix/scripts/import/pypi.scm

@@ -26,7 +26,6 @@ (define-module (guix scripts import pypi)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-37)
-  #:use-module (srfi srfi-41)
   #:use-module (ice-9 match)
   #:use-module (ice-9 format)
   #:export (guix-import-pypi))
@@ -95,8 +94,7 @@ (define (parse-options)
                    `(define-public ,(string->symbol name)
                       ,pkg))
                   (_ #f))
-                (stream->list
-                 (pypi-recursive-import package-name)))
+                (pypi-recursive-import package-name))
            ;; Single import
            (let ((sexp (pypi->guix-package package-name)))
              (unless sexp

guix/scripts/import/stackage.scm

@@ -27,7 +27,6 @@ (define-module (guix scripts import stackage)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-37)
-  #:use-module (srfi srfi-41)
   #:use-module (ice-9 match)
   #:use-module (ice-9 format)
   #:export (guix-import-stackage))
@@ -110,8 +109,7 @@ (define (run-importer package-name opts error-fn)
                              `(define-public ,(string->symbol name)
                                 ,pkg))
                             (_ #f))
-                          (stream->list
-                           (apply stackage-recursive-import arguments)))
+                          (apply stackage-recursive-import arguments))
                      ;; Single import
                      (apply stackage->guix-package arguments))))
       (unless sexp (error-fn))

tests/gem.scm

@@ -24,7 +24,6 @@ (define-module (test-gem)
   #:use-module (gcrypt hash)
   #:use-module (guix tests)
   #:use-module ((guix build utils) #:select (delete-file-recursively))
-  #:use-module (srfi srfi-41)
   #:use-module (srfi srfi-64)
   #:use-module (ice-9 match))
 
@@ -121,7 +120,7 @@ (define test-bundler-json
               (values (open-input-string test-bundler-json)
                       (string-length test-bundler-json)))
              (_ (error "Unexpected URL: " url)))))
-        (match (stream->list (gem-recursive-import "foo"))
+        (match (gem-recursive-import "foo")
           ((('package
               ('name "ruby-bar")
               ('version "1.0.0")

tests/import-utils.scm

@@ -24,7 +24,6 @@ (define-module (test-import-utils)
   #:use-module (guix packages)
   #:use-module (guix build-system)
   #:use-module (gnu packages)
-  #:use-module (srfi srfi-41)
   #:use-module (srfi srfi-64)
   #:use-module (ice-9 match))
 
@@ -49,20 +48,19 @@ (define-module (test-import-utils)
     (package
       (name "foo")
       (inputs `(("bar" ,bar)))))
-  (stream->list
-   (recursive-import "foo" 'repo
-                     #:repo->guix-package
-                     (match-lambda*
-                       (("foo" 'repo)
-                        (values '(package
-                                   (name "foo")
-                                   (inputs `(("bar" ,bar))))
-                                '("bar")))
-                       (("bar" 'repo)
-                        (values '(package
-                                   (name "bar"))
-                                '())))
-                     #:guix-name identity)))
+  (recursive-import "foo" 'repo
+                    #:repo->guix-package
+                    (match-lambda*
+                      (("foo" 'repo)
+                       (values '(package
+                                  (name "foo")
+                                  (inputs `(("bar" ,bar))))
+                               '("bar")))
+                      (("bar" 'repo)
+                       (values '(package
+                                  (name "bar"))
+                               '())))
+                    #:guix-name identity))
 
 (test-assert "alist->package with simple source"
   (let* ((meta '(("name" . "hello")