From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 19 Jul 2001 01:45:02 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~2633
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2a24539fafd2ea5ef5abe5a6ecc52af29404eaa2;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/microcode/os2fs.c b/v7/src/microcode/os2fs.c
index 404868ada..fb1bf9f4d 100644
--- a/v7/src/microcode/os2fs.c
+++ b/v7/src/microcode/os2fs.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: os2fs.c,v 1.13 2001/05/09 03:15:02 cph Exp $
+$Id: os2fs.c,v 1.14 2001/07/19 01:45:02 cph Exp $
 
 Copyright (c) 1994-2001 Massachusetts Institute of Technology
 
@@ -110,7 +110,7 @@ OS_file_existence_test_direct (const char * filename)
 enum file_type
 OS_file_type_direct (const char * filename)
 {
-  FILESTATUS3 * info = (OS2_read_file_status (STRING_ARG (1)));
+  FILESTATUS3 * info = (OS2_read_file_status (filename));
   return
     ((info == 0)
      ? file_type_nonexistent