Changes to compile under gnu-win32, from Marcus Daniels:

* boot-9.scm (load-user-init): If HOME is unset, provide
a default of /.

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index eb7b656..0b8e755 100644 (file)
--- 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))))
 
 \f