From 5e2309e21fcd0c73cfafd5e396219eaddc3b4825 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 9 May 1991 03:26:15 +0000
Subject: [PATCH] Change to handle #F as value from GET-ENVIRONMENT-VARIABLE.

---
 v7/src/edwin/process.scm | 8 +++++---
 v7/src/edwin/shell.scm   | 6 +++---
 v7/src/edwin/tterm.scm   | 4 ++--
 3 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 950c9cfc2..9ea643da6 100644
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.6 1991/04/29 10:51:41 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/process.scm,v 1.7 1991/05/09 03:24:31 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -48,8 +48,10 @@
 
 (define (initialize-processes!)
   (set! edwin-processes '())
-  (set-variable! exec-path
-		 (parse-path-string (get-environment-variable "PATH"))))
+  (let ((path (get-environment-variable "PATH")))
+    (if (not path)
+	(error "Can't find PATH environment variable."))
+    (set-variable! exec-path (parse-path-string path))))
 
 (define edwin-processes)
 
diff --git a/v7/src/edwin/shell.scm b/v7/src/edwin/shell.scm
index c80ea5c7c..7668dbb87 100644
--- a/v7/src/edwin/shell.scm
+++ b/v7/src/edwin/shell.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/shell.scm,v 1.3 1991/05/02 01:14:28 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/shell.scm,v 1.4 1991/05/09 03:25:21 cph Exp $
 
 Copyright (c) 1991 Massachusetts Institute of Technology
 
@@ -114,8 +114,8 @@ Otherwise, one argument `-i' is passed to the shell."
     (select-buffer
      (let ((program
 	    (or (ref-variable explicit-shell-file-name)
-		((ucode-primitive get-environment-variable) "ESHELL")
-		((ucode-primitive get-environment-variable) "SHELL")
+		(get-environment-variable "ESHELL")
+		(get-environment-variable "SHELL")
 		"/bin/sh")))
        (apply make-comint
 	      (ref-mode-object shell)
diff --git a/v7/src/edwin/tterm.scm b/v7/src/edwin/tterm.scm
index f29e807d4..0523230a8 100644
--- a/v7/src/edwin/tterm.scm
+++ b/v7/src/edwin/tterm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tterm.scm,v 1.7 1991/04/11 03:18:53 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tterm.scm,v 1.8 1991/05/09 03:26:15 cph Exp $
 
 Copyright (c) 1990-91 Massachusetts Institute of Technology
 
@@ -121,7 +121,7 @@ MIT in each case. |#
 (define (console-termcap-description)
   (if (eq? console-description 'UNKNOWN)
       (set! console-description
-	    (let ((term ((ucode-primitive get-environment-variable 1) "TERM")))
+	    (let ((term (get-environment-variable "TERM")))
 	      (and term
 		   (or (and (output-port/baud-rate console-output-port)
 			    (make-termcap-description term))
-- 
2.25.1