env: Fix directory-exists? check in mount-environment

2024-01-11 00:50:28 +01:00 · 2024-01-11 00:50:28 +01:00 · b9a4a014f3
commit b9a4a014f3
parent 92ec57e351
1 changed files with 1 additions and 1 deletions
--- a/env.scm
+++ b/env.scm
@ -364,7 +364,7 @@ by other environments made."
           (merged (let ((f (or target
                                (string-append %env-directory
                                               "/" (symbol->string name)))))
-                     (if (directory-exists? f) f (mkdir-p f))))
+                     (if (directory-exists? f) f (begin (mkdir-p f) f))))
           (upper  (mkdtemp* "upper"))
           (work   (mkdtemp* "work"))
           ;; TODO abstract away