From 0e7362b7b4a11984cc1f0effd68f439c212d061e Mon Sep 17 00:00:00 2001
From: "Henry M. Wu" <edu/mit/csail/zurich/mhwu>
Date: Tue, 12 May 1992 15:45:40 +0000
Subject: [PATCH] Added DOS related files.

---
 v7/src/edwin/decls.scm |  4 +++-
 v7/src/edwin/edwin.pkg | 10 +++++++---
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 4fdaf9b91..a3aefaa7b 100644
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.36 1992/04/22 21:16:09 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.37 1992/05/12 15:45:23 mhwu Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -129,6 +129,8 @@ MIT in each case. |#
 		"debug"
 		"debuge"
 		"dired"
+		"dos"
+		"dosproc"
 		"ed-ffi"
 		"editor"
 		"evlcom"
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 06963cb0c..e5f7adef5 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.90 1992/04/22 21:14:39 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.91 1992/05/12 15:45:40 mhwu Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -37,13 +37,15 @@ MIT in each case. |#
 (global-definitions "../runtime/runtim")
 
 (define-package (edwin)
+  (file-case os-type
+    ((unix) "unix")
+    ((dos)  "dos"))
   (files "utils"
 	 "nvector"
 	 "ring"
 	 "strtab"
 	 "strpad"
 	 "class"
-	 "unix"
 
 	 "paths"
 	 "struct"
@@ -815,7 +817,9 @@ MIT in each case. |#
   (parent (edwin)))
 
 (define-package (edwin process)
-  (files "process")
+  (file-case os-type
+    ((unix) "process")
+    ((dos)  "dosproc"))
   (parent (edwin))
   (export (edwin)
 	  accept-process-output
-- 
2.25.1