diff options
| -rw-r--r-- | guix/packages.scm | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/guix/packages.scm b/guix/packages.scm index 2ab45f9fb4..03b6174224 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -61,6 +61,7 @@ package-location package-transitive-inputs + package-transitive-propagated-inputs package-source-derivation package-derivation package-cross-derivation @@ -196,12 +197,8 @@ representation." (($ <origin> uri method sha256 name) (method store uri 'sha256 sha256 name)))) -(define (package-transitive-inputs package) - "Return the transitive inputs of PACKAGE---i.e., its direct inputs along -with their propagated inputs, recursively." - (let loop ((inputs (concatenate (list (package-native-inputs package) - (package-inputs package) - (package-propagated-inputs package)))) +(define (transitive-inputs inputs) + (let loop ((inputs inputs) (result '())) (match inputs (() @@ -217,6 +214,18 @@ with their propagated inputs, recursively." ((input rest ...) (loop rest (cons input result)))))) +(define (package-transitive-inputs package) + "Return the transitive inputs of PACKAGE---i.e., its direct inputs along +with their propagated inputs, recursively." + (transitive-inputs (append (package-native-inputs package) + (package-inputs package) + (package-propagated-inputs package)))) + +(define (package-transitive-propagated-inputs package) + "Return the propagated inputs of PACKAGE, and their propagated inputs, +recursively." + (transitive-inputs (package-propagated-inputs package))) + ;;; ;;; Package derivations. |