From ae2b8700e5fa405c904b97ca70536867edd8c068 Mon Sep 17 00:00:00 2001 From: shivers Date: Sun, 8 Sep 1996 09:14:40 +0000 Subject: [PATCH] (chdir) now correctly changes to the home dir, rather than to "." --- scsh/syscalls.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm index 4976177..58ca6ce 100644 --- a/scsh/syscalls.scm +++ b/scsh/syscalls.scm @@ -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))))