summaryrefslogtreecommitdiffstats
path: root/stdlib/filename.ml
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/filename.ml')
-rw-r--r--stdlib/filename.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/filename.ml b/stdlib/filename.ml
index 34853f85d..05d32fa25 100644
--- a/stdlib/filename.ml
+++ b/stdlib/filename.ml
@@ -107,7 +107,7 @@ module Win32 = struct
with Not_found ->
"."
let temporary_directory =
- try Sys.getenv "TEMP" with Not_found -> "C:\\temp"
+ try Sys.getenv "TEMP" with Not_found -> "."
let quote s =
let l = String.length s in
let b = Buffer.create (l + 20) in