From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 24 Feb 1996 13:25:16 +0000 (+0000)
Subject: Directory reader should treat "c:\\cph" differently from "c:\\cph\\",
X-Git-Tag: 20090517-FFI~5701
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fcaa6bb850965eec7e0557d60523676bb396cb81;p=mit-scheme.git

Directory reader should treat "c:\\cph" differently from "c:\\cph\\",
because the runtime system expects the former to return a listing for
the directory file itself, and the latter to return a listing of the
directory's contents.
---

diff --git a/v7/src/microcode/os2fs.c b/v7/src/microcode/os2fs.c
index f24b671e5..b2d6b18b7 100644
--- a/v7/src/microcode/os2fs.c
+++ b/v7/src/microcode/os2fs.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Id: os2fs.c,v 1.7 1995/11/06 21:51:37 cph Exp $
+$Id: os2fs.c,v 1.8 1996/02/24 13:25:16 cph Exp $
 
-Copyright (c) 1994-95 Massachusetts Institute of Technology
+Copyright (c) 1994-96 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -348,8 +348,6 @@ OS_directory_open (const char * search_pattern)
     unsigned int len = (strlen (pattern));
     if ((len > 0) && ((pattern [len - 1]) == '\\'))
       strcat (pattern, "*");
-    else if (OS_file_directory_p (pattern))
-      strcat (pattern, "\\*");
   }
   (s -> handle) = HDIR_CREATE;
   (s -> count) = 1;