scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Missed one 2-line IF in the last commit.

This commit is contained in:
sperber 2003-04-16 13:02:19 +00:00
parent a6978187ba
commit 5c19731d59
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/fname.scm
View File

@ -156,7 +156,8 @@
(let ((len (string-length fname))) (let ((len (string-length fname)))
(if (and (> len 0) (char=? #\~ (string-ref fname 0))) (if (and (> len 0) (char=? #\~ (string-ref fname 0)))
(let ((tilde->homedir (lambda (end) (let ((tilde->homedir (lambda (end)
(if (= end 1) home-directory ; Just ~ (if (= end 1)
home-directory ; Just ~
(let* ((user (substring fname 1 end)) (let* ((user (substring fname 1 end))
(ui (name->user-info user))) (ui (name->user-info user)))
(user-info:home-dir ui)))))) (user-info:home-dir ui))))))