From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 9 Oct 1996 15:43:24 +0000 (+0000)
Subject: Now that microcode implements directory-reading properly, use the OS/2
X-Git-Tag: 20090517-FFI~5353
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bf214f2ae748a992be92c841d2343ef4be8c3673;p=mit-scheme.git

Now that microcode implements directory-reading properly, use the OS/2
directory reader for Win32 rather than the DOS directory.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 9a93f43e9..85e882f7c 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.272 1996/10/07 18:11:51 cph Exp $
+$Id: runtime.pkg,v 14.273 1996/10/09 15:43:00 cph Exp $
 
 Copyright (c) 1988-96 Massachusetts Institute of Technology
 
@@ -471,8 +471,8 @@ MIT in each case. |#
 (define-package (runtime directory)
   (file-case os-type
     ((unix) "unxdir")
-    ((dos nt) "dosdir")
-    ((os/2) "os2dir")
+    ((dos) "dosdir")
+    ((os/2 nt) "os2dir")
     ;;(else "unkdir")
     (else))
   (parent ())
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index fa97848d8..5c5b45e9f 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.279 1996/10/07 18:12:20 cph Exp $
+$Id: runtime.pkg,v 14.280 1996/10/09 15:43:24 cph Exp $
 
 Copyright (c) 1988-96 Massachusetts Institute of Technology
 
@@ -469,8 +469,8 @@ MIT in each case. |#
 (define-package (runtime directory)
   (file-case os-type
     ((unix) "unxdir")
-    ((dos nt) "dosdir")
-    ((os/2) "os2dir")
+    ((dos) "dosdir")
+    ((os/2 nt) "os2dir")
     ;;(else "unkdir")
     (else))
   (parent ())