(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-errno-syscall (%chdir dir) %chdir/errno)
|
||||||
|
|
||||||
(define (chdir . maybe-dir)
|
(define (chdir . maybe-dir)
|
||||||
(let ((dir (:optional maybe-dir ".")))
|
(let ((dir (:optional maybe-dir (home-dir))))
|
||||||
(%chdir (ensure-file-name-is-nondirectory dir))))
|
(%chdir (ensure-file-name-is-nondirectory dir))))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue