1 files changed, 5 insertions(+), 18 deletions(-)

M guix/scripts/pack.scm

@@ 312,25 312,12 @@ added to the pack."
   "Return a shell script that defines the environment variables corresponding
 to the search paths of PROFILE."
   (define build
-    (with-extensions (list guile-gcrypt)
-      (with-imported-modules `(((guix config) => ,(make-config.scm))
-                               ,@(source-module-closure
-                                  `((guix profiles)
-                                    (guix search-paths))
-                                  #:select? not-config?))
-        #~(begin
-            (use-modules (guix profiles) (guix search-paths)
-                         (ice-9 match))
+    #~(begin
+        (use-modules (ice-9 match))
 
-            (call-with-output-file #$output
-              (lambda (port)
-                (for-each (match-lambda
-                            ((spec . value)
-                             (format port "~a=~a~%export ~a~%"
-                                     (search-path-specification-variable spec)
-                                     value
-                                     (search-path-specification-variable spec))))
-                          (profile-search-paths #$profile))))))))
+        (call-with-output-file #$output
+          (lambda (port)
+            (format port ". ~a/etc/profile~%" #$profile)))))
 
   (computed-file "singularity-environment.sh" build))