Mercurial > gub

view patches/guile-1.9.15-mingw-cachedir.patch @ 6512:ccc20ae889ca default tip guix

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mingw::guile-2.0.7 builds.
author Jan Nieuwenhuizen <janneke@gnu.org>
date Thu, 24 Mar 2016 08:03:39 +0100
parents 840b403f7762
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