Use real subprocess support for NT.

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 419c9ae86b9071512d0d149bc1ebca52a53593df..30efbc002a5e140e47cf1c8286dbb8f66ffc24e5 100644 (file)
--- 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 a34229d8329bf8aaf299e1595cf3ffe5fd12776b..0426b4027e483a8ca3cdbb5f46e681ecb2665ca7 100644 (file)
--- 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))
 \f
 (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 afe969b81de7f316d5b7164c952484ace39eb0e3..1094ee7adf1f6d1308fd71a0ad20b6b4863c7096 100644 (file)
--- 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.")
 \f
 ;;;; 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 8defc5b1b7a6659f701ed5141028e740fc377b23..1190db7cfe784658a6c7cf9d3258186eebde7d93 100644 (file)
--- 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