02/07: profiles: Add 'map-manifest-entries'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 8a705ae4c6107f43c7fbcfad913dd2675f94086a
Author: Ludovic Courtès <address@hidden>
Date:   Sun Dec 29 16:19:56 2019 +0100

    profiles: Add 'map-manifest-entries'.
    
    * guix/scripts/pack.scm (map-manifest-entries): Move to...
    * guix/profiles.scm (map-manifest-entries): ... here.
---
 guix/profiles.scm     | 6 ++++++
 guix/scripts/pack.scm | 5 -----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/guix/profiles.scm b/guix/profiles.scm
index 6166051..5b3b5bd 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -93,6 +93,7 @@
             manifest-pattern-output
 
             concatenate-manifests
+            map-manifest-entries
             manifest-remove
             manifest-add
             manifest-lookup
@@ -520,6 +521,11 @@ procedure is here for backward-compatibility and will 
eventually vanish."
   "Concatenate the manifests listed in LST and return the resulting manifest."
   (manifest (append-map manifest-entries lst)))
 
+(define (map-manifest-entries proc manifest)
+  "Apply PROC to all the entries of MANIFEST and return a new manifest."
+  (make-manifest
+   (map proc (manifest-entries manifest))))
+
 (define (entry-predicate pattern)
   "Return a procedure that returns #t when passed a manifest entry that
 matches NAME/OUTPUT/VERSION.  OUTPUT and VERSION may be #f, in which case they
diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index 9676d28..536cc17 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -753,11 +753,6 @@ last resort for relocation."
                  (manifest-entry-output entry)
                  args))))
 
-(define (map-manifest-entries proc manifest)
-  "Apply PROC to all the entries of MANIFEST and return a new manifest."
-  (make-manifest
-   (map proc (manifest-entries manifest))))
-
 
 ;;;
 ;;; Command-line options.