From a6e095cd7d92ab18979b1af2d90f4ec8d198ab79 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 25 Mar 2009 18:06:45 +0100 Subject: [PATCH] Fixed typo in the ordering of drive and path in ecl_homedir_pathname() --- src/c/unixfsys.d | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/c/unixfsys.d b/src/c/unixfsys.d index 34d1c82ad..bbd9cc75b 100644 --- a/src/c/unixfsys.d +++ b/src/c/unixfsys.d @@ -547,12 +547,12 @@ ecl_homedir_pathname(cl_object user) FEerror("Unknown user ~S.", 1, p); } else if ((h = getenv("HOME"))) { namestring = make_base_string_copy(h); -#ifdef _MSC_VER +#if defined(_MSC_VER) || defined(ming32) } else if ((h = getenv("HOMEPATH")) && (d = getenv("HOMEDRIVE"))) { namestring = si_base_string_concatenate(2, - make_constant_base_string(h), - make_constant_base_string(d)); + make_constant_base_string(d), + make_constant_base_string(h)); #endif } else { namestring = make_constant_base_string("/");