Commit 7362ac37 authored by rrt's avatar rrt
Browse files

[project @ 2001-08-23 12:48:54 by rrt]

Strip a backslash, not a slash.
parent a022fabe
......@@ -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 ())
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment