From 02c7da94411a66a36c7ea96c465cdbd196d2a29a Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 1 Feb 1999 03:34:09 +0000
Subject: [PATCH] Eliminate DOS/DEFAULT-SHELL-FILE-NAME and DOS/WINDOWS-TYPE.

---
 v7/src/edwin/dos.scm | 19 +------------------
 v7/src/edwin/os2.scm |  5 +----
 2 files changed, 2 insertions(+), 22 deletions(-)

diff --git a/v7/src/edwin/dos.scm b/v7/src/edwin/dos.scm
index 2d92cd3b1..caa20c5fe 100644
--- 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))
 
-(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 0aa1ba7a0..82ed6ac77 100644
--- 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))
 
-(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)))
-- 
2.25.1