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:
parent
c10012e3ed
commit
eda764e9d4
1 changed files with 2 additions and 2 deletions
|
@ -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))))
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue