aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorÓscar Nájera <hi@oscarnajera.com>2020-10-20 00:27:32 +0200
committerÓscar Nájera <hi@oscarnajera.com>2020-10-20 00:27:32 +0200
commit871d1cee8feb1f4d034d9341f62dd32bd2b01d65 (patch)
treee211b8773b5c8f1b9bb9449f122b8b410f18a257
parent311d07fa91cefca23c304ed51e8022b2a3a6c736 (diff)
downloaddotfiles-871d1cee8feb1f4d034d9341f62dd32bd2b01d65.tar.gz
dotfiles-871d1cee8feb1f4d034d9341f62dd32bd2b01d65.tar.bz2
dotfiles-871d1cee8feb1f4d034d9341f62dd32bd2b01d65.zip
use system absolute-file-name function for path expand
-rwxr-xr-xinstall.scm2
1 files changed, 1 insertions, 1 deletions
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)))))