01/03: import/cran: Fix calls to CRAN->GUIX-PACKAGE.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit a689c85af4752b3fc466489e06d49ccab5f37de1
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Fri Dec 4 12:27:29 2020 +0100

    import/cran: Fix calls to CRAN->GUIX-PACKAGE.
    
    * guix/import/cran.scm (cran->guix-package, latest-bioconductor-release):
    Invoke CRAN->GUIX-PACKAGE with #:REPO keyword argument.
---
 guix/import/cran.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index d8240a6..d6baa6b 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -578,13 +578,13 @@ s-expression corresponding to that package, or #f on 
failure."
            (case repo
              ((git)
               ;; Retry import from Bioconductor
-              (cran->guix-package package-name 'bioconductor))
+              (cran->guix-package package-name #:repo 'bioconductor))
              ((hg)
               ;; Retry import from Bioconductor
-              (cran->guix-package package-name 'bioconductor))
+              (cran->guix-package package-name #:repo 'bioconductor))
              ((bioconductor)
               ;; Retry import from CRAN
-              (cran->guix-package package-name 'cran))
+              (cran->guix-package package-name #:repo 'cran))
              (else (values #f '()))))))))
 
 (define* (cran-recursive-import package-name #:key (repo 'cran))
@@ -655,7 +655,7 @@ s-expression corresponding to that package, or #f on 
failure."
         (input-changes
          (changed-inputs
           pkg
-          (cran->guix-package upstream-name 'bioconductor))))))
+          (cran->guix-package upstream-name #:repo 'bioconductor))))))
 
 (define (cran-package? package)
   "Return true if PACKAGE is an R package from CRAN."