From 8f0b7521f7649d2fd5b92f7cfe311d2b325563a7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 3 Jul 2022 12:34:39 +0200
Subject: Add path-absolute?

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

(limited to 'module')

diff --git a/module/hnh/util/path.scm b/module/hnh/util/path.scm
index ea081e85..0c8af48a 100644
--- a/module/hnh/util/path.scm
+++ b/module/hnh/util/path.scm
@@ -3,6 +3,7 @@
   :use-module (srfi srfi-71)
   :use-module (hnh util)
   :export (path-append
+           path-absolute?
            path-join
            path-split
            file-hidden?
@@ -12,6 +13,8 @@
 (define // file-name-separator-string)
 (define /? file-name-separator?)
 
+(define path-absolute? absolute-file-name?)
+
 (define (path-append . strings)
   (fold (lambda (s done)
           (string-append
-- 
cgit v1.2.3