From 9d9ef458e8bad9fddcee071038d18d6c27f448c2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 6 Sep 2012 22:57:46 +0200 Subject: [PATCH] utils: Make `set-path-environment-variable' verbose. * guix/build/utils.scm (set-path-environment-variable): Print ENV-VAR and its value. --- guix/build/utils.scm | 9 +++++---- 1 file 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 @@ (define* (set-path-environment-variable env-var sub-directories input-dirs '(\"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))) ;;;