diff options
Diffstat (limited to 'module/hnh/util/env.scm')
| -rw-r--r-- | module/hnh/util/env.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/hnh/util/env.scm b/module/hnh/util/env.scm index 18ec0543..bb42d966 100644 --- a/module/hnh/util/env.scm +++ b/module/hnh/util/env.scm @@ -14,7 +14,11 @@ (list n new-value (getenv n))) (list (symbol->string (quote name)) ...) (list value ...))) - (for-each (lambda (pair) (setenv (car pair) (cadr pair))) + (for-each (lambda (pair) + (if (cadr pair) + (setenv (car pair) + (cadr pair)) + (unsetenv (car pair)))) env-pairs)) (lambda () body ...) (lambda () |