diff options
| author | Arun Isaac | 2021-06-10 15:13:24 +0530 |
|---|---|---|
| committer | Arun Isaac | 2021-06-10 15:13:24 +0530 |
| commit | 4ce35159d8ead6022a8f8945b8b1d3659b0d5fd6 (patch) | |
| tree | 0b403d13d27c7666faa46f9625cc456d539da33b /pre-inst-env.in | |
| parent | 8aa71efb28fb07defaf543638b25441df6a3f71b (diff) | |
| download | ccwl-4ce35159d8ead6022a8f8945b8b1d3659b0d5fd6.tar.gz ccwl-4ce35159d8ead6022a8f8945b8b1d3659b0d5fd6.tar.lz ccwl-4ce35159d8ead6022a8f8945b8b1d3659b0d5fd6.zip | |
pre-inst-env: Handle absent environment variables.
* pre-inst-env.in (prepend-path-env!): Handle case when environment
variable is absent and getenv returns #f.
Diffstat (limited to 'pre-inst-env.in')
| -rw-r--r-- | pre-inst-env.in | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/pre-inst-env.in b/pre-inst-env.in index 19aea8e..d0aa24c 100644 --- a/pre-inst-env.in +++ b/pre-inst-env.in @@ -22,8 +22,11 @@ (import (ice-9 match)) (define (prepend-path-env! name . values) - (setenv name (string-append (string-join values ":" 'suffix) - (getenv name)))) + (setenv name (string-join (append values + (if (getenv name) + (string-split (getenv name) #\:) + '())) + ":"))) (prepend-path-env! "GUILE_LOAD_PATH" "@abs_top_builddir@" "@abs_top_srcdir@") (prepend-path-env! "GUILE_LOAD_COMPILED_PATH" "@abs_top_builddir@") |