From 43e9e930d8f535893ad4ba78527f9ffe3805634b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 6 Jul 2010 06:00:10 -0600
Subject: [PATCH] fix Windows narrow-path uses

---
 src/racket/src/port.c | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/racket/src/port.c b/src/racket/src/port.c
index e32fb6d707..f0ef6029bd 100644
--- a/src/racket/src/port.c
+++ b/src/racket/src/port.c
@@ -4155,14 +4155,14 @@ scheme_do_open_output_file(char *name, int offset, int argc, Scheme_Object *argv
     err = GetLastError();
     if ((err == ERROR_ACCESS_DENIED) && (existsok < -1)) {
       /* Delete and try again... */
-      if (DeleteFile(filename)) {
-	fd = CreateFile(filename,
-			GENERIC_WRITE,
-			FILE_SHARE_READ | FILE_SHARE_WRITE,
-			NULL,
-			hmode,
-			0,
-			NULL);
+      if (DeleteFileW(WIDE_PATH(filename))) {
+	fd = CreateFileW(WIDE_PATH(filename),
+                         GENERIC_WRITE,
+                         FILE_SHARE_READ | FILE_SHARE_WRITE,
+                         NULL,
+                         hmode,
+                         0,
+                         NULL);
 	if (fd == INVALID_HANDLE_VALUE)
 	  err = GetLastError();
       } else {