Mercurial > gub

view 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
line wrap: on
line source

--- guile-1.9.15/libguile/load.c~	2011-02-05 00:12:37.229094428 +0100
+++ guile-1.9.15/libguile/load.c	2011-02-06 11:24:34.469218789 +0100
@@ -329,6 +329,10 @@ scm_init_load_path ()
 
     if ((e = getenv ("XDG_CACHE_HOME")))
       snprintf (cachedir, sizeof(cachedir), "%s/" FALLBACK_DIR, e);
+#ifdef __MINGW32__
+    else if ((e = getenv ("LOCALAPPDATA")))
+      snprintf (cachedir, sizeof (cachedir), "%s/.cache/" FALLBACK_DIR, e);
+#endif /* __MINGW32__ */
     else if ((e = getenv ("HOME")))
       snprintf (cachedir, sizeof(cachedir), "%s/.cache/" FALLBACK_DIR, e);
 #ifdef HAVE_GETPWENT