From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Nov 1992 01:41:33 +0000 (+0000)
Subject: Can't use set-variable-default-value! during editor startup.
X-Git-Tag: 20090517-FFI~8702
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5bde7a6544708e7c45f0cdc84e5a3367fbdf702b;p=mit-scheme.git

Can't use set-variable-default-value! during editor startup.
---

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 26b1d6ebd..f24479f2e 100644
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: process.scm,v 1.26 1992/11/24 21:14:45 cph Exp $
+;;;	$Id: process.scm,v 1.27 1992/11/25 01:41:33 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-1992 Massachusetts Institute of Technology
 ;;;
@@ -51,16 +51,14 @@
 
 (define (initialize-processes!)
   (set! edwin-processes '())
-  (set-variable-default-value!
-   (ref-variable-object exec-path)
-   (parse-path-string
-    (let ((path (get-environment-variable "PATH")))
-      (if (not path)
-	  (error "Can't find PATH environment variable."))
-      path)))
-  (set-variable-default-value!
-   (ref-variable-object shell-file-name)
-   (or (get-environment-variable "SHELL") "/bin/sh")))
+  (set-variable! exec-path
+		 (parse-path-string
+		  (let ((path (get-environment-variable "PATH")))
+		    (if (not path)
+			(error "Can't find PATH environment variable."))
+		    path)))
+  (set-variable! shell-file-name
+		 (or (get-environment-variable "SHELL") "/bin/sh")))
 
 (define edwin-processes)