From 124b921a5e18859d44596706e285ee5c1cc184af Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 4 May 2023 12:31:41 +0200 Subject: [PATCH] import: Cosmetic tweaks to 'recursive-import'. * guix/import/utils.scm (recursive-import): Tweak docstring. Simplify 'apply' call. --- guix/import/utils.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/guix/import/utils.scm b/guix/import/utils.scm index e1f6519287..177817b10c 100644 --- a/guix/import/utils.scm +++ b/guix/import/utils.scm @@ -607,7 +607,7 @@ (define* (recursive-import package-name #:allow-other-keys #:rest rest) "Return a list of package expressions for PACKAGE-NAME and all its dependencies, sorted in topological order. For each package, -call (REPO->GUIX-PACKAGE NAME :KEYS version), which should return a +call (REPO->GUIX-PACKAGE NAME #:version V), which should return a package expression and a list of dependencies; call (GUIX-NAME PACKAGE-NAME) to obtain the Guix package name corresponding to the upstream name." (define-record-type @@ -627,7 +627,7 @@ (define (lookup-node name version) ((#:version v . more) more) (_ post))) (args (append pre (list #:version version) post*)) - (package dependencies (apply repo->guix-package (cons* name args))) + (package dependencies (apply repo->guix-package name args)) (normalized-deps (map (match-lambda ((name version) (list name version)) (name (list name #f))) dependencies)))