From 2a1850e175773ff471dc0213d149b418f62758ed Mon Sep 17 00:00:00 2001
From: vyzo <vyzo@hackzen.org>
Date: Sun, 25 Aug 2024 12:18:03 +0300
Subject: [PATCH] fix clown shoes with relative paths

---
 src/tools/env.ss | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/tools/env.ss b/src/tools/env.ss
index 402c5c3a1..a305051df 100644
--- a/src/tools/env.ss
+++ b/src/tools/env.ss
@@ -16,10 +16,11 @@
   (cond
    ((hash-get opt 'gerbil-path)
     => (lambda (path)
-         (unless (file-exists? path)
-           (create-directory* path))
-         (setenv "GERBIL_PATH" path)
-         (add-load-path! (path-expand "lib" path))))
+         (let (path (path-expand path))
+           (unless (file-exists? path)
+             (create-directory* path))
+           (setenv "GERBIL_PATH" path)
+           (add-load-path! (path-expand "lib" path)))))
    ((not (hash-get opt 'global-env))
     (setup-local-pkg-env! #f))))