mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-25 06:00:18 +02:00
Code Activity

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

Browse source 
* 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
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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