From eda764e9d4d69cd220cde9e0d2afaa67a854bc9d Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Tue, 24 Jun 1997 01:44:58 +0000
Subject: [PATCH] Changes to compile under gnu-win32, from Marcus Daniels: *
 boot-9.scm (load-user-init): If HOME is unset, provide a default of /.

---
 ice-9/boot-9.scm | 4 ++--
 1 file 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))))