From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 22 May 2001 02:21:10 +0000 (+0000)
Subject: Fix thinko in previous change.
X-Git-Tag: 20090517-FFI~2810
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bc7c36bcf8705754d6505afa856f9e0354198518;p=mit-scheme.git

Fix thinko in previous change.
---

diff --git a/v7/src/microcode/ntfs.c b/v7/src/microcode/ntfs.c
index 46a547694..4187bd5f6 100644
--- a/v7/src/microcode/ntfs.c
+++ b/v7/src/microcode/ntfs.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: ntfs.c,v 1.27 2001/05/09 03:14:54 cph Exp $
+$Id: ntfs.c,v 1.28 2001/05/22 02:21:10 cph Exp $
 
 Copyright (c) 1992-2001 Massachusetts Institute of Technology
 
@@ -179,7 +179,7 @@ OS_file_type_direct (const char * name)
 {
   BY_HANDLE_FILE_INFORMATION info;
   return
-    (((NT_get_file_info ((STRING_ARG (1)), (&info), 0)) == gfi_not_found)
+    (((NT_get_file_info (name, (&info), 0)) == gfi_not_found)
      ? file_type_nonexistent
      : (((info . dwFileAttributes) & FILE_ATTRIBUTE_DIRECTORY) == 0)
      ? file_type_regular