From 7362ac37db0f07335e0bbc9d83189e5a4859fb3f Mon Sep 17 00:00:00 2001
From: rrt <unknown>
Date: Thu, 23 Aug 2001 12:48:54 +0000
Subject: [PATCH] [project @ 2001-08-23 12:48:54 by rrt] Strip a backslash,
 not a slash.

---
 ghc/compiler/main/SysTools.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 20a8099..fee219f 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -273,11 +273,11 @@ initSysTools minusB_args
 		     destructArray len buf
 		     return s
 		let
-	  	  -- strip the trailing slash (awful, but 
+	  	  -- strip the trailing backslash (awful, but 
 		  -- we only do this once).
 		  tmpdir =
 	            case last tdir of
-		      '/' -> init tdir
+		      '\\' -> init tdir
 		      _   -> tdir
 		setTmpDir tmpdir
 		return ())
-- 
1.7.10.4