utils: Make `set-path-environment-variable' verbose.

* guix/build/utils.scm (set-path-environment-variable): Print ENV-VAR
  and its value.

1 files changed, 5 insertions, 4 deletions

diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index 6005813f77..148f62ec51 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -98,10 +98,11 @@ SEPARATOR-separated path accordingly.  Example:
                                  '(\"lib/pkgconfig\")
                                  (list package1 package2))
 "
-  (setenv env-var
-          (list->search-path-as-string (search-path-as-list sub-directories
-                                                            input-dirs)
-                                       separator)))
+  (let* ((path  (search-path-as-list sub-directories input-dirs))
+         (value (list->search-path-as-string path separator)))
+   (setenv env-var value)
+   (format #t "environment variable `~a' set to `~a'~%"
+           env-var value)))
 
 
 ;;;