[project @ 2001-08-31 13:51:45 by sewardj]

[ghc-hetmet.git] / ghc / compiler / main / SysTools.lhs

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