From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 22 Oct 1997 05:10:03 +0000 (+0000)
Subject: Use COMSPEC environment variable to determine shell file name if SHELL
X-Git-Tag: 20090517-FFI~4988
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f0fcc6e0f96dbb623ba8e06c48798defae0e67b7;p=mit-scheme.git

Use COMSPEC environment variable to determine shell file name if SHELL
is not defined.
---

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index 35d845545..1c2820f3d 100644
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dosfile.scm,v 1.10 1997/03/14 05:12:55 cph Exp $
+;;;	$Id: dosfile.scm,v 1.11 1997/10/22 05:10:03 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-97 Massachusetts Institute of Technology
 ;;;
@@ -434,6 +434,7 @@ Includes the new backup.  Must be > 0."
 
 (define (os/shell-file-name)
   (or (get-environment-variable "SHELL")
+      (get-environment-variable "COMSPEC")
       dos/default-shell-file-name))
 
 (define (os/shell-name pathname)