diff options
author | Jim Blandy <jimb@red-bean.com> | 1997-06-24 01:44:58 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1997-06-24 01:44:58 +0000 |
commit | eda764e9d4d69cd220cde9e0d2afaa67a854bc9d (patch) | |
tree | 5e64a374b9285c9e9a2509f4c0d7f35cb7a21027 | |
parent | c10012e3edf8d2e52f990e2ea1b66d6782a698cb (diff) | |
download | guile-eda764e9d4d69cd220cde9e0d2afaa67a854bc9d.tar.gz |
Changes to compile under gnu-win32, from Marcus Daniels:
* boot-9.scm (load-user-init): If HOME is unset, provide
a default of /.
-rw-r--r-- | ice-9/boot-9.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index eb7b656c9..0b8e75576 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -811,8 +811,8 @@ (if (not (eq? (stat:type stats) 'directory)) path))) (lambda dummy #f)))) - (let ((path (or (has-init? (getenv "HOME")) - (has-init? (passwd:dir (getpw (getuid))))))) + (let ((path (or (has-init? (or (getenv "HOME") "/")) + (has-init? (passwd:dir (getpw (getuid))))))) (if path (primitive-load path)))) |