[project @ 2001-08-23 12:50:13 by rrt]

On second thoughts, strip either a backslash or a slash, as if we read
an environment variable, we may well get a slash in the path; if we
get a result from GetTempPath, it'll probably have a backslash.

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index fee219f..ffa77e9 100644 (file)
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -277,6 +277,7 @@ initSysTools minusB_args
                  -- we only do this once).
                  tmpdir =
                    case last tdir of
+                     '/'  -> init tdir
                      '\\' -> init tdir
                      _   -> tdir
                setTmpDir tmpdir