Eliminate DOS/DEFAULT-SHELL-FILE-NAME and DOS/WINDOWS-TYPE.

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 2d92cd3b13cb3487cb5b4f7ec34a50610b5fb7ec..caa20c5fe78d0bd2eb3fc4cbe5e741e147f944fe 100644 (file)
--- a/v7/src/edwin/dos.scm
+++ b/v7/src/edwin/dos.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dos.scm,v 1.48 1999/01/02 06:11:34 cph Exp $
+;;; $Id: dos.scm,v 1.49 1999/02/01 03:33:56 cph Exp $
 ;;;
 ;;; Copyright (c) 1992-1999 Massachusetts Institute of Technology
 ;;;
@@ -22,23 +22,6 @@
 
 (declare (usual-integrations))
 \f
-(define (dos/windows-type)
-  (cond ((string-prefix? "Microsoft Windows NT"
-                        microcode-id/operating-system-variant)
-        'WINNT)
-       ((string-prefix? "Microsoft Windows 9"
-                        microcode-id/operating-system-variant)
-        'WIN95)
-       ((string-prefix? "Microsoft Windows"
-                        microcode-id/operating-system-variant)
-        'WIN31)
-       (else #f)))
-
-(define (dos/default-shell-file-name)
-  (if (eq? 'WINNT (dos/windows-type))
-      "cmd.exe"
-      "command.com"))
-
 (define (os/set-file-modes-writable! pathname)
   (set-file-modes! pathname
                   (fix:andc (file-modes pathname) nt-file-mode/read-only)))

diff --git a/v7/src/edwin/os2.scm b/v7/src/edwin/os2.scm
index 0aa1ba7a09e587ddb78fe10708f993a5965bcb01..82ed6ac7783f4cfc28ed5770143fb9e126d570b8 100644 (file)
--- a/v7/src/edwin/os2.scm
+++ b/v7/src/edwin/os2.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: os2.scm,v 1.43 1999/01/02 06:11:34 cph Exp $
+;;; $Id: os2.scm,v 1.44 1999/02/01 03:34:09 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-1999 Massachusetts Institute of Technology
 ;;;
@@ -22,9 +22,6 @@
 
 (declare (usual-integrations))
 \f
-(define (dos/default-shell-file-name)
-  "cmd.exe")
-
 (define (os/set-file-modes-writable! pathname)
   (set-file-modes! pathname
                   (fix:andc (file-modes pathname) os2-file-mode/read-only)))