diff options
| author |  Andy Wingo | 2010-11-18 11:16:50 +0100 |
|---|---|---|
| committer | Andy Wingo | 2010-11-18 11:16:50 +0100 |
| commit | 3ece90674ac6b63e98a3bc0d0c392aab9e46f70d (patch) | |
| tree | 837a3580ea201512ea27afa7dd0c36fc13d2b818 | |
| parent | 1692732222bc617ef91eac4d2b41581a68ea79e7 (diff) | |
| download | tekuti-3ece90674ac6b63e98a3bc0d0c392aab9e46f70d.tar.gz tekuti-3ece90674ac6b63e98a3bc0d0c392aab9e46f70d.zip | |
expanduser tweaks
* tekuti/util.scm (expanduser): Use passwd:name accessor, and geteuid as
cuserid did.
| -rw-r--r-- | tekuti/util.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tekuti/util.scm b/tekuti/util.scm index e12bf00..ceb3300 100644 --- a/tekuti/util.scm +++ b/tekuti/util.scm @@ -89,7 +89,7 @@ (let ((parts (string-split path #\/))) (if (eqv? (string-ref (car parts) 0) #\~) (let ((user (if (= (string-length (car parts)) 1) - (vector-ref (getpwuid (getuid)) 0) + (passwd:name (getpwuid (geteuid))) (substring (car parts) 1)))) (string-join (cons (passwd:dir (getpwnam user)) (cdr parts)) "/")) path))) |