From 871d1cee8feb1f4d034d9341f62dd32bd2b01d65 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=93scar=20N=C3=A1jera?= <hi@oscarnajera.com>
Date: Tue, 20 Oct 2020 00:27:32 +0200
Subject: use system absolute-file-name function for path expand

---
 install.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'install.scm')

diff --git a/install.scm b/install.scm
index dfb85af..de36b33 100755
--- a/install.scm
+++ b/install.scm
@@ -41,7 +41,7 @@
 
 (define (expand-file f)
   ;; https://irreal.org/blog/?p=83
-  (cond ((char=? (string-ref f 0) #\/) f)
+  (cond ((absolute-file-name? f) f)
         ((string=? (substring f 0 2) "~/")
          (let ((prefix (passwd:dir (getpwuid (geteuid)))))
            (string-append prefix (substring f 1 (string-length f)))))
-- 
cgit v1.2.3