1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-04 22:40:25 +02:00

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

* boot-9.scm (load-user-init): If HOME is unset, provide
a default of /.
This commit is contained in:
Jim Blandy 1997-06-24 01:44:58 +00:00
parent c10012e3ed
commit eda764e9d4

View file

@ -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))))