diff options
| 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 |
| commit | 871d1cee8feb1f4d034d9341f62dd32bd2b01d65 (patch) | |
| tree | e211b8773b5c8f1b9bb9449f122b8b410f18a257 | |
| parent | 311d07fa91cefca23c304ed51e8022b2a3a6c736 (diff) | |
| download | dotfiles-871d1cee8feb1f4d034d9341f62dd32bd2b01d65.tar.gz dotfiles-871d1cee8feb1f4d034d9341f62dd32bd2b01d65.tar.bz2 dotfiles-871d1cee8feb1f4d034d9341f62dd32bd2b01d65.zip | |
use system absolute-file-name function for path expand
| -rwxr-xr-x | install.scm | 2 |
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))))) |