* guix/scripts/home.scm: Create the symlink.

Change-Id: Ib299c53f7cd0ca6ad204325b5c150d579224afd7
---
 guix/scripts/home.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/guix/scripts/home.scm b/guix/scripts/home.scm
index b4c82d275f..50aaf2abf6 100644
--- a/guix/scripts/home.scm
+++ b/guix/scripts/home.scm
@@ -344,6 +344,10 @@ (define* (spawn-home-container home
            (primitive-load (string-append #$home "/activate"))
            (setenv "GUIX_NEW_HOME" #f)
 
+           (system* "ln" "-s"
+                    (string-append #$home-directory "/.guix-home/profile")
+                    (string-append #$home-directory "/.guix-profile"))
+
            (when term
              ;; Preserve TERM for proper interactive use.
              (setenv "TERM" term))

base-commit: c3290cee6add60b7e56f5f919d9498d78542790a
-- 
2.46.0




Reply via email to