Missed one 2-line IF in the last commit.

2003-04-16 13:02:19 +00:00 · 2003-04-16 13:02:19 +00:00 · 5c19731d59
parent a6978187ba
commit 5c19731d59
1 changed files with 2 additions and 1 deletions
--- a/scsh/fname.scm
+++ b/scsh/fname.scm
@ -156,7 +156,8 @@
  (let ((len (string-length fname)))
    (if (and (> len 0) (char=? #\~ (string-ref fname 0)))
 	(let ((tilde->homedir (lambda (end)
-				(if (= end 1) home-directory ; Just ~
+				(if (= end 1)
+				    home-directory ; Just ~
 				    (let* ((user (substring fname 1 end))
 					   (ui (name->user-info user)))
 				      (user-info:home-dir ui))))))