summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1997-06-24 01:44:58 +0000
committerJim Blandy <jimb@red-bean.com>1997-06-24 01:44:58 +0000
commiteda764e9d4d69cd220cde9e0d2afaa67a854bc9d (patch)
tree5e64a374b9285c9e9a2509f4c0d7f35cb7a21027
parentc10012e3edf8d2e52f990e2ea1b66d6782a698cb (diff)
downloadguile-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.scm4
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))))