fix clown shoes with relative paths

mighty-gerbils · Aug 25, 2024 · 2a1850e · 2a1850e
1 parent d73d9f2
commit 2a1850e
Showing 1 changed file with 5 additions and 4 deletions.
diff --git 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))))