Change to handle #F as value from GET-ENVIRONMENT-VARIABLE.

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 950c9cfc2bdf27437fdcc307464f2ed201c35559..9ea643da6888abc4bcdd2f0b0aa3ec7be0179d70 100644 (file)
--- 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 @@
 \f
 (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 c80ea5c7c98da363a587e389277926d555e14277..7668dbb87cd7a9ac742775489c8b2311a3eab1e4 100644 (file)
--- 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 f29e807d42440cd27e9f5d7ce1652743e0275ce1..0523230a83c837b139070af148f1fbefa93a0204 100644 (file)
--- 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))