Mercurial > gub

annotate patches/guile-1.9.15-mingw-cachedir.patch @ 6489:840b403f7762

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mingw::guile: another round of 1.9 patches.
author Jan Nieuwenhuizen <janneke@gnu.org>
date Mon, 07 Feb 2011 12:51:53 +0100
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6489
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
1 --- guile-1.9.15/libguile/load.c~ 2011-02-05 00:12:37.229094428 +0100
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
2 +++ guile-1.9.15/libguile/load.c 2011-02-06 11:24:34.469218789 +0100
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
3 @@ -329,6 +329,10 @@ scm_init_load_path ()
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
4
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
5 if ((e = getenv ("XDG_CACHE_HOME")))
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
6 snprintf (cachedir, sizeof(cachedir), "%s/" FALLBACK_DIR, e);
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
7 +#ifdef __MINGW32__
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
8 + else if ((e = getenv ("LOCALAPPDATA")))
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
9 + snprintf (cachedir, sizeof (cachedir), "%s/.cache/" FALLBACK_DIR, e);
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
10 +#endif /* __MINGW32__ */
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
11 else if ((e = getenv ("HOME")))
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
12 snprintf (cachedir, sizeof(cachedir), "%s/.cache/" FALLBACK_DIR, e);
840b403f7762 mingw::guile: another round of 1.9 patches.
Jan Nieuwenhuizen <janneke@gnu.org>
parents:
diff changeset
13 #ifdef HAVE_GETPWENT