From b9a4a014f3a74d3ebfe4db7d3f4d2d4c158ea3ff Mon Sep 17 00:00:00 2001 From: Davie Li Date: Thu, 11 Jan 2024 00:50:28 +0100 Subject: [PATCH] env: Fix directory-exists? check in mount-environment --- env.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/env.scm b/env.scm index f6162b5..4cf8446 100644 --- 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