summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/load.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/load.c b/libguile/load.c
index fa19a2a66..8cc08e89b 100644
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -293,6 +293,12 @@ scm_init_load_path ()
snprintf (cachedir, sizeof(cachedir), "%s/.cache/" FALLBACK_DIR,
pwd->pw_dir);
#endif /* HAVE_GETPWENT */
+#ifdef __MINGW32__
+ else if ((e = getenv ("LOCALAPPDATA")))
+ snprintf (cachedir, sizeof (cachedir), "%s/.cache/" FALLBACK_DIR, e);
+ else if ((e = getenv ("APPDATA")))
+ snprintf (cachedir, sizeof (cachedir), "%s/.cache/" FALLBACK_DIR, e);
+#endif /* __MINGW32__ */
else
cachedir[0] = 0;