diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-13 00:01:28 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-13 00:01:28 +0200 |
| commit | a82b6c772089aa46e30c6c89ef48f514294df3cb (patch) | |
| tree | e25d9b6fd1fefe8b6ac293a5c0b53293872a8f54 /module/hnh/util/env.scm | |
| parent | Add basic documentation for lens. (diff) | |
| parent | Even more documentation. (diff) | |
| download | calp-a82b6c772089aa46e30c6c89ef48f514294df3cb.tar.gz calp-a82b6c772089aa46e30c6c89ef48f514294df3cb.tar.xz | |
Merge branch 'next' into datarewrite-structures
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 32ea1cc1..f5992245 100644 --- a/module/hnh/util/env.scm +++ b/module/hnh/util/env.scm @@ -16,7 +16,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 () |