(chdir) now correctly changes to the home dir, rather than to "."

This commit is contained in:
shivers 1996-09-08 09:14:40 +00:00
parent d16ad942c0
commit ae2b8700e5
1 changed files with 1 additions and 1 deletions

View File

@ -149,7 +149,7 @@
(define-errno-syscall (%chdir dir) %chdir/errno)
(define (chdir . maybe-dir)
(let ((dir (:optional maybe-dir ".")))
(let ((dir (:optional maybe-dir (home-dir))))
(%chdir (ensure-file-name-is-nondirectory dir))))