From d708ef06e2547ca65da50542224c138526d41c0b Mon Sep 17 00:00:00 2001
From: olin-shivers <olin-shivers>
Date: Sun, 11 Mar 2001 18:58:54 +0000
Subject: [PATCH] EXEC-PATH-LIST is now a fluid.

---
 scsh/scsh-package.scm |  4 ++--
 scsh/scsh.scm         | 16 ++++++++--------
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/scsh/scsh-package.scm b/scsh/scsh-package.scm
index 41df1ef..71eb7e6 100644
--- a/scsh/scsh-package.scm
+++ b/scsh/scsh-package.scm
@@ -184,7 +184,8 @@
 
 	string-lib
 
-	loopholes	; For my bogus CALL-TERMINALLY implementation.
+	fluids			; For exec-path-list
+	loopholes		; For my bogus CALL-TERMINALLY implementation.
 
 	scheme
 	
@@ -451,4 +452,3 @@
 	handle
 	threads) ; sleep
   (files dot-locking)) 
-  
\ No newline at end of file
diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index d670c29..70b7061 100644
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@@ -813,7 +813,7 @@
      (%exec prog (cons prog arglist) env))))
 
 ;(define (exec-path/env prog env . arglist)
-;  (cond ((exec-path-search (stringify prog) exec-path-list) =>
+;  (cond ((exec-path-search (stringify prog) (fluid exec-path-list)) =>
 ;	 (lambda (binary)
 ;	   (apply exec/env binary env arglist)))
 ;	(else (error "No executable found." prog arglist))))
@@ -837,7 +837,7 @@
 	     (for-each (lambda (dir)
 			 (let ((binary (string-append dir "/" prog)))
 			   (%%exec/errno binary argv env)))
-		       exec-path-list))))
+		       (fluid exec-path-list)))))
      
      (error "No executable found." prog arglist))))
    
@@ -902,7 +902,7 @@
 
 ;;; Some globals:
 (define home-directory "")
-(define exec-path-list '())
+(define exec-path-list (make-fluid '()))
 
 (define (init-scsh-vars quietly?)
   (set! home-directory
@@ -910,11 +910,11 @@
 	      (else (if (not quietly?)
 			(warn "Starting up with no home directory ($HOME)."))
 		    "/")))
-  (set! exec-path-list
-	(cond ((getenv "PATH") => split-colon-list)
-	      (else (if (not quietly?)
-			(warn "Starting up with no path ($PATH)."))
-		    '()))))
+  (set-fluid! exec-path-list
+	      (cond ((getenv "PATH") => split-colon-list)
+		    (else (if (not quietly?)
+			      (warn "Starting up with no path ($PATH)."))
+			  '()))))
 
 
 ; SIGTSTP blows s48 away. ???