1 files changed, 8 insertions(+), 4 deletions(-)

M guix/profiles.scm

@@ 422,10 422,12 @@ explicit and implicit inputs of PACKAGE."
                   #f))
                (package-development-inputs package system #:target target))))
 
-(define (packages->manifest packages)
+(define* (packages->manifest packages #:key
+                             (properties default-package-properties))
   "Return a list of manifest entries, one for each item listed in PACKAGES.
 Elements of PACKAGES can be either package objects or package/string tuples
-denoting a specific output of a package."
+denoting a specific output of a package.  PROPERTIES is a procedure taking one
+argument and returning an alist."
   (define inferiors-loaded?
     ;; This hack allows us to provide seamless integration for inferior
     ;; packages while not having a hard dependency on (guix inferior).


@@ 439,9 441,11 @@ denoting a specific output of a package."
    (delete-duplicates
     (map (match-lambda
            (((? package? package) output)
-            (package->manifest-entry package output))
+            (package->manifest-entry package output
+                                     #:properties (properties package)))
            ((? package? package)
-            (package->manifest-entry package))
+            (package->manifest-entry package
+                                     #:properties (properties package)))
            ((thing output)
             (if inferiors-loaded?
                 ((inferior->entry) thing output)