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

* guix/build/utils.scm (set-path-environment-variable): Print ENV-VAR and its value.
2012-09-06 22:57:46 +02:00 · 2012-09-06 22:57:46 +02:00 · 9d9ef458e8
parent 5f805fdf17
commit 9d9ef458e8
1 changed files with 5 additions and 4 deletions
--- 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)))


 ;;;