03/04: packages: Add 'bag-direct-inputs'.

[Ludovic Courtès]

civodul pushed a commit to branch core-updates
in repository guix.

commit cceab87536d0385e406f30dea001d48e9b8f5621
Author: Ludovic Courtès <address@hidden>
Date:   Sat Apr 11 12:29:10 2015 +0200

    packages: Add 'bag-direct-inputs'.
    
    * guix/packages.scm (bag-direct-inputs): New procedure.
      (bag-transitive-inputs): Use it.
---
 guix/packages.scm |   11 ++++++++---
 1 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/guix/packages.scm b/guix/packages.scm
index 99fbd24..f278db5 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -107,6 +107,7 @@
 
             package->bag
             bag->derivation
+            bag-direct-inputs
             bag-transitive-inputs
             bag-transitive-host-inputs
             bag-transitive-build-inputs
@@ -580,11 +581,15 @@ supported by its dependencies."
         (package-supported-systems package)
         (package-direct-inputs package)))
 
+(define (bag-direct-inputs bag)
+  "Same as 'package-direct-inputs', but applied to a bag."
+  (append (bag-build-inputs bag)
+          (bag-host-inputs bag)
+          (bag-target-inputs bag)))
+
 (define (bag-transitive-inputs bag)
   "Same as 'package-transitive-inputs', but applied to a bag."
-  (transitive-inputs (append (bag-build-inputs bag)
-                             (bag-host-inputs bag)
-                             (bag-target-inputs bag))))
+  (transitive-inputs (bag-direct-inputs bag)))
 
 (define (bag-transitive-build-inputs bag)
   "Same as 'package-transitive-native-inputs', but applied to a bag."