From cdbf97fe063432981a8c550c9bd2c8f214e43394 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 1 Feb 2022 21:32:37 +0100
Subject: Add path-join.

---
 module/hnh/util/path.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'module/hnh/util/path.scm')

diff --git a/module/hnh/util/path.scm b/module/hnh/util/path.scm
index b08932f9..41b2e1fc 100644
--- a/module/hnh/util/path.scm
+++ b/module/hnh/util/path.scm
@@ -18,3 +18,5 @@
           (if (string-null? s)
               "/" s))
         (cdr strings)))
+
+(define-public (path-join lst) (apply path-append lst))
-- 
cgit v1.2.3