From 3c6bd65e402655aacb9dfd8e2edeb95563f3ccda Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 11 Feb 2023 03:27:57 +0100
Subject: Add test for path-append without components.

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

(limited to 'module/hnh')

diff --git a/module/hnh/util/path.scm b/module/hnh/util/path.scm
index b0991073..d22e8242 100644
--- a/module/hnh/util/path.scm
+++ b/module/hnh/util/path.scm
@@ -17,6 +17,7 @@
 (define path-absolute? absolute-file-name?)
 
 ;; TODO remove intermidiate period components
+;; e.x. /a/../b => /b
 (define (path-append . strings)
   (fold (lambda (s done)
           (string-append
-- 
cgit v1.2.3