From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 9 May 2001 03:04:54 +0000 (+0000)
Subject: Delete DOS stuff.
X-Git-Tag: 20090517-FFI~2841
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3f70dc4ae50c9a24b018d19ad6678d5dcd22e2c3;p=mit-scheme.git

Delete DOS stuff.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 3a5b40c70..e5ed9df4a 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.364 2001/03/16 20:17:51 cph Exp $
+$Id: runtime.pkg,v 14.365 2001/05/09 03:04:54 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -40,7 +40,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 	 "vector")
   (file-case os-type
     ((unix) "unxprm")
-    ((dos) "dosprm")
     ((nt) "ntprm")
     ((os/2) "os2prm")
     (else)))
@@ -632,7 +631,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 (define-package (runtime directory)
   (file-case os-type
     ((unix) "unxdir")
-    ((dos) "dosdir")
     ((os/2) "os2dir")
     ((nt) "ntdir")
     ;;(else "unkdir")
@@ -1779,11 +1777,6 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
   (parent (runtime pathname))
   (initialization (initialize-package!)))
 
-(define-package (runtime pathname dos)
-  (files "dospth")
-  (parent (runtime pathname))
-  (initialization (initialize-package!)))
-
 (define-package (runtime population)
   (files "poplat")
   (parent ())