exec-path-list is a thread-fluid now.

scsh/hpux/packages.scm

@@ -5,7 +5,8 @@
   (export open/sync))
 
 (define-interface hpux-errno-extras-interface
-  (export errno/wouldblock))
+  (export errno/wouldblock
+	  errno/connaborted))
 
 (define-interface hpux-signals-extras-interface
   (export))

scsh/scsh-package.scm

@@ -186,7 +186,7 @@
 
 	string-lib
 
-	fluids			; For exec-path-list
+	thread-fluids			; For exec-path-list
 	loopholes		; For my bogus CALL-TERMINALLY implementation.
 
 	scheme

scsh/scsh.scm

@@ -900,7 +900,7 @@
 		   (for-each (lambda (dir)
 			       (let ((binary (string-append dir "/" prog)))
 				 (%%exec binary argv env)))
-			     (fluid exec-path-list)))))
+			     (thread-fluid exec-path-list)))))
 	   
 	   (error "No executable found." prog arglist))))))))
    
@@ -1006,7 +1006,7 @@
 
 ;;; Some globals:
 (define home-directory "")
-(define exec-path-list (make-fluid '()))
+(define exec-path-list)
 
 (define (init-scsh-vars quietly?)
   (set! home-directory
@@ -1024,11 +1024,12 @@
 			(lambda ()
 			  (user-info:home-dir (user-info (user-uid))))))))))
 	      
-  (set-fluid! exec-path-list
+  (set! exec-path-list
-	      (cond ((getenv "PATH") => split-colon-list)
+	(make-preserved-thread-fluid 
-		    (else (if (not quietly?)
+	 (cond ((getenv "PATH") => split-colon-list)
-			      (warn "Starting up with no path ($PATH)."))
+	       (else (if (not quietly?)
-			  '()))))
+			 (warn "Starting up with no path ($PATH)."))
+		     '())))))
 
 
 ; SIGTSTP blows s48 away. ???