diff options
-rw-r--r-- | libguile/load.c | 6 |
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; |