(chdir) now correctly changes to the home dir, rather than to "."
This commit is contained in:
parent
d16ad942c0
commit
ae2b8700e5
|
@ -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))))
|
||||
|
||||
|
||||
|
|
Loading…
Reference in New Issue