fix file-or-directory-identity for dirs on Windows

svn: r16791
2009-11-16 00:09:09 +00:00 · 2009-11-16 00:09:09 +00:00 · b50aee633f
commit b50aee633f
parent 25f9bcfe03
1 changed files with 1 additions and 1 deletions
--- a/src/mzscheme/src/file.c
+++ b/src/mzscheme/src/file.c
@ -2358,7 +2358,7 @@ Scheme_Object *scheme_get_fd_identity(Scheme_Object *port, long fd, char *path)
                     FILE_SHARE_READ | FILE_SHARE_WRITE,
                     NULL,
                     OPEN_EXISTING,
-                     0,
+                     FILE_FLAG_BACKUP_SEMANTICS,
                     NULL);
    if (fd == INVALID_HANDLE_VALUE) {
      errid = GetLastError();