From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 22 Oct 1997 05:11:11 +0000 (+0000)
Subject: Use real subprocess support for NT.
X-Git-Tag: 20090517-FFI~4987
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a7a57553480d90671b89bb1d79a80c9902d8469d;p=mit-scheme.git

Use real subprocess support for NT.
---

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 419c9ae86..30efbc002 100644
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.ldr,v 1.59 1997/03/07 23:34:45 cph Exp $
+$Id: edwin.ldr,v 1.60 1997/10/22 05:10:53 cph Exp $
 
 Copyright (c) 1989-97 Massachusetts Institute of Technology
 
@@ -78,7 +78,7 @@ MIT in each case. |#
       (define string-member? (member-procedure string=?))
       (define (boolean-and a b) (and a b))
 
-      (if (memq (lookup 'OS-TYPE) '(UNIX OS/2))
+      (if (memq (lookup 'OS-TYPE) '(UNIX OS/2 NT))
 	  (begin
 	    ;; #T means no error if not present.
 	    (load-option 'KRYPT #t)
@@ -194,7 +194,7 @@ MIT in each case. |#
 		   '((UNIX . "process")
 		     (OS/2 . "process")
 		     (DOS . "dosproc")
-		     (NT . "dosproc"))
+		     (NT . "process"))
 		   (->environment '(EDWIN PROCESS)))
 
 	(load "mousecom" environment)
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index a34229d83..0426b4027 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.211 1997/05/18 08:00:10 cph Exp $
+$Id: edwin.pkg,v 1.212 1997/10/22 05:10:46 cph Exp $
 
 Copyright (c) 1989-97 Massachusetts Institute of Technology
 
@@ -954,7 +954,7 @@ MIT in each case. |#
 	  run-synchronous-process))
 
 (os-type-case
- ((dos nt)
+ ((dos)
   (define-package (edwin dosjob)
     (files "doscom" "dosshell")
     (parent (edwin)))))
@@ -1148,7 +1148,7 @@ MIT in each case. |#
 	    rcs-number-head
 	    rcs-number-length)))
 
- ((dos nt)
+ ((nt)
   (global-definitions "../win32/win32")
 
   (extend-package (edwin)
@@ -1164,7 +1164,7 @@ MIT in each case. |#
     (files "ansi" "bios"))
 
   (extend-package (edwin process)
-    (files "dosproc"))
+    (files "process"))
 
   (define-package (edwin screen win32)
     (files "win32")
diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index afe969b81..1094ee7ad 100644
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: loadef.scm,v 1.31 1997/04/11 04:44:07 cph Exp $
+;;;	$Id: loadef.scm,v 1.32 1997/10/22 05:10:38 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-97 Massachusetts Institute of Technology
 ;;;
@@ -289,7 +289,7 @@ is open the that server, its buffer is selected.")
 
 ;;;; DOS-specific commands
 
-(if (memq microcode-id/operating-system '(DOS NT))
+(if (memq microcode-id/operating-system '(DOS))
     (begin
       (define-library 'DOSCOM
 	'("doscom" (EDWIN DOSJOB)))
diff --git a/v7/src/edwin/make.scm b/v7/src/edwin/make.scm
index 8defc5b1b..1190db7cf 100644
--- a/v7/src/edwin/make.scm
+++ b/v7/src/edwin/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 3.91 1996/04/24 02:56:13 cph Exp $
+$Id: make.scm,v 3.92 1997/10/22 05:11:11 cph Exp $
 
 Copyright (c) 1989-96 Massachusetts Institute of Technology
 
@@ -58,4 +58,4 @@ MIT in each case. |#
 				     ((UNIX) "edwinunx")
 				     (else "edwinunk"))))))
 	'QUERY)))))
-(add-system! (make-system "Edwin" 3 91 '()))
\ No newline at end of file
+(add-system! (make-system "Edwin" 3 92 '()))
\ No newline at end of file