From 5255259bf048b863e222c41dc406c91be1b2eba0 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Thu, 18 Mar 2021 17:52:06 -0400
Subject: utils: Remove leading "/" in join-file-name-components.

---
 haunt/utils.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'haunt')

diff --git a/haunt/utils.scm b/haunt/utils.scm
index 764d6cb..fb4d170 100644
--- a/haunt/utils.scm
+++ b/haunt/utils.scm
@@ -84,7 +84,7 @@ charcter."
 
 (define (join-file-name-components components)
   "Join COMPONENTS into a file name string."
-  (string-join components "/" 'prefix))
+  (string-join components "/"))
 
 (define (absolute-file-name file-name)
   "Return a an absolute file name string relative to the current
-- 
cgit v1.2.3