01/02: profiles: Add #:system argument to profile-derivation.

[David Thompson]

davexunit pushed a commit to branch wip-environment-profiles
in repository guix.

commit a1b0c3f5606313353b70efd2e9ed9e2b8e7dd530
Author: David Thompson <address@hidden>
Date:   Sat Oct 31 17:17:28 2015 -0400

    profiles: Add #:system argument to profile-derivation.
    
    * guix/profiles.scm (profile-derivation): Add #:system argument and
      honor it when calling 'gexp->derivation'.
---
 guix/profiles.scm |   10 +++++++---
 1 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/guix/profiles.scm b/guix/profiles.scm
index ce86ff8..8b500b1 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -694,10 +694,12 @@ creates the GTK+ 'icon-theme.cache' file for each theme."
 
 (define* (profile-derivation manifest
                              #:key
-                             (hooks %default-profile-hooks))
+                             (hooks %default-profile-hooks)
+                             (system (%current-system)))
   "Return a derivation that builds a profile (aka. 'user environment') with
-the given MANIFEST.  The profile includes additional derivations returned by
-the monadic procedures listed in HOOKS--such as an Info 'dir' file, etc."
+the given MANIFEST for SYSTEM.  The profile includes additional derivations
+returned by the monadic procedures listed in HOOKS--such as an Info 'dir'
+file, etc.  By default, the profile is built for the current system."
   (mlet %store-monad ((extras (if (null? (manifest-entries manifest))
                                   (return '())
                                   (sequence %store-monad
@@ -740,6 +742,8 @@ the monadic procedures listed in HOOKS--such as an Info 
'dir' file, etc."
                                   (guix search-paths)
                                   (guix records))
 
+                      #:system system
+
                       ;; Not worth offloading.
                       #:local-build? #t